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File: scannota.h 

$Heacler: /Pro j ects /Toolbox/ ct/SCANNOTA. H 2 5/30/97 8:4 

5a Wmanis $ 

Contains: Generalized annotation structure. 

Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadverten 
t publication 

and does not constitute an admission or acknowledgment tha 
t publication 

p has occurred or constitute a waiver of confidentiality. 

rfi Composition Toolbox software is the proprietary 

fy and confidential property of Stonehand Inc. 

^ I 
Q 

s ttifndef _H_S CANNOT A 
C3 #define _H_S CANNOT A 

H 

[a #include "sctypes.h" 
U #include <string.h> 

Q 

13 class scAnnotation { 



public: 
); 



scAnnotation ( UCS2* , int, int, int 
scAnnotation ( ) ; 



void Set( UCS2 *, int, int, int ); 

void Clear ( void ); 



UCS2 
Bool 

apply, else clear 



fCharStr [32] ; 
fAnnotate; 



// if true 
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int fParaOffset; 
int fStartOffset; 
int fEndOffset; 

}; 

/* ============================ = ========= = ==== = ========== ™ ======= 

===== */ 

inline void scAnnotation: : Clear ( ) 
{ 

f Annotate = false; 

fParaOffset = -1; 

fStartOffset = -1; 
fEndOffset' = -1; 

} 

/* ============================================================ 

===== */ 

inline scAnnotation: : scAnnotation ( UCS2 *ch, int paraoffset, int s 

tart, int end ) 

{ 

Set ( ch, paraoffset, start, end ); 

} 

/* ======================== ==================================== 

===== */ 

inline scAnnotation: : scAnnotation ( ) 
{ 

Clear ( ) ; 

} 

/ * =========m== m ====================================== 

===== */ 

#endif 
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//Xhtml X pre > 
/«*****«****«« 



File: SCAPPINT.H 

SHeader: /Projects/Toolbox/ct/SCAPPINT.H 2 5/30/97 8:45a Wmanis $ 
Contains: The portable c application interface prototypes 



SCENG_xxxxx 




messages 


to 


the text engine 


SCFS_xxxxxx 




messages 


to 


f lowsets 


SCCOL_xxxxx 




messages 


to 


columns 


SCSEL_xxxxx 




messages 


to 


a selection 


oLo I K_XXXXX 




messages 


to 


streams 


SCSCR_xxxxx 




messages 


to 


the scrap 


SCHRGN_xxxx 




messages 


to 


regions 


SCCHTS_xxxx 




messages 


to 


scCharSpecL i st 


SCTSL_xxxxx 




messages 


to 


scTypeSpecList 


SCAPPTXILxx 




messages 


to 


scAPPText 


SCRDL_xxxxx 




messages 


to 


scRedisplayList 



Written by: Manis 



f3 



fU Copyright (c) 1989-1994 Stonehand Inc., of Cambridge, MA. 
. =s All rights reserved. 

I J This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
f~ has occurred or constitute a waiver of confidentiality. 

s Composition Toolbox software is the proprietary 
fj and confidential property of Stonehand Inc. 

@dbc 

Mfndef _H_SCAPPINT 
Mefine _H_SCAPPIOT 

#ifdef SCMACINTOSH 
#pragma once 
#endif 

^include "sctypes .h" 
#include "sccharex.h" 

// [doc] [test] 

class stText Import Export; // in scapptex.h ( scTextExchange ) 

class scTypeSpecList; // in scpubobj.h 

class scLinelnfoList; // in scpubobj.h 

class scRedispList; //in scpubobj.h 

class scSpecLocList; // in scpubobj.h 

class scSet; // see scset.h 

class scImmediateRedisp;// in scpubobj .h 

class clField; // in sccallbk.h 

// TERMINOLOGY 
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FLOW SET 
COLUMN 



STREAM 

CONTENT UNIT 
SELECTION 



a set of 1 inked ^Wlumns which contain a single stream 
an area to flow text into, text MAY extend outside the 
column depending upon constraints, another name for a column 
is a TEXT CONTAINER 
a set of content units/paragraphs 

a paragraph that contains characters and specs associated 
with the characters 

a range of text, each flow set may only contain one selection 



/•o t3 o B o-o«-=-==»««c ! »«ooo* SYSTEM LEVEL MESSAGES 

// @func status | SCENG_Init | This must be called before any other 

// calls are made into the Toolbox; it initializes and sets 

// toolobx behavior. The base error is the number added to 

// <t status> errors when exceptions are re-raised across the api . 

// 

// @parm int | baseError | Value to add to <t status> values 

// if we are re-raising exceptions across the API. 

// 

status scIMPLJEXPORT SCENG_Init( int baseError = 0 ); 



// @func Closes the Composition Toolbox; this releases all memory 
// that the Toolbox has allocated. All references into the 
//^ Toolbox become invalid. 

Ad 

atatus scIMPL_EXPORT SCENG_Fini( void ); 

m 
m 

/^5The following three calls are optional. Their use will guarantee that 
4{| the Toolbox can always recover from an out of memory condition, 
</; given that the application can get it back to a previous state. 

/A 

// Holds memory to guarantee that if recomposition fails, we will 
/£4 be able to revert to previous state. 

/M 

M[ ] [ ] 

s^tptus scIMPL_EXPORT SCENG_RetainMemory ( void ); 

M 

S 3 

C3 

// Informs Toolbox to use retained memory - 
// only for use in a recovery operation. 

// 

//MM 

status scIMPL_EXPORT SCENG_UseRetainedMemory ( void ); 



// Releases retained memory; recomposition has been successfully completed. 

// 

"MM 

status scIMPLJEXPORT SCENG_ReleaseMemory ( void ); 



/» aanssBaaBatiaDEBooanigQsoaBODSOOseaoKBoaDBCBanasooaoneiBaBDOBBaEanaasBS * / 
/* a=ittoasea»ooooa OBJECT ALLOCATION = = ° = = = = = = = = = = = = = = = = = = = = = = = = = = «= = = ^ = = ° «/ 

/* aannaannnaeioetinasaaaiaaaaacDDRaaoaaooeoaaaoneaDneeosesooaDaBnatiaaaeBD * / 

// If the application wants to allocate its objects it can do 
// so bearing in mind that it must have set up an exception 
// handler, otherwise the client may use the following to 
// allocate and free the objects. Accessing the data within 
// these objects should not present exception problems if the 
// correct accessor methods are used . 
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/* aaBBaaasBssasasasssBasaBBaBBBBaBsaBBBBBBBBBaBBBBaaBBBBSBsaBaaasBBaaB * / 
/ * aca!XcaaBa = n3c:ccaa = nc SCJ 1 ^fP ESP EC LI 1 cnsasaanacocncaaocacaaaancac: / 

/V aBonaBRBsaooDBaoBdsaaaaeaDDSQansaeaaasasosBsoaoDiisoaeaBosoesoBaasaon * / 

// @func Safely allocate. 

status scIMPLJEXPOKT SCTSL_Alloc( 

scTypeSpecList*& tsl ); // @parm <t scTypeSpecList> 

// @func Safely delete. 

status scIMPL__EXPORT SCTSL.Delete ( 

scTypeSpecList*& tsl ); // @parm <t scTypeSpecList> 

/* BB8BBBBCIBOBBBC3BBaSiaaaaaSSe3B»BOaetBBBBBBBBBBaBBBBBBBBSBBSBBBaBaBtBaBB3B * / 
/m B = BBB«B=» = B« = BBBBBOBBBB» SCRED I SPL I ST B B B B B B B B B B B B B B B B B B B B B B B B B B B B «/ 

/» oeesaaaaaeaBssaseBBanasaaeaaBaaaaaasasaanoaBsnnoDonansaaaoscinnnaBODS »/ 

// @func Safely allocate. 

status scIMPLJEXPORT SCRDL_Alloc( 

scRedispList»& rdl ); // @parm <c scRedispList> 

// @func Safely delete. 

status scIMPL„EXPORT SCRDL_Delete( 

scRedispList*& rdl ); // @parm <c scRedispList> 

/Ht^i BBccaaeaaaaBaBaasBesae&BeasBaaaannBoaans3inrnanDonBB3DansBaBaBBBBaaBa * / 
/^aaaDsa&ssssssasseocBSSsaas SCAJPPTEXT ============================ */ 

/%hz. BasssaasssaBSBBBasaaaKtsBSKfsasssBSBBBBBBBBBBSBBBBBBBBBBBSBBaBBBBSBaBBBB 

■R '■ - 

/V3@func Safely allocate, 
status scIMPLJEXPORT SCAPPTXT_Alloc ( 



/fg@func Safely delete, 
status scIMPLJEXPORT SCAPPTXTJelete ( 



stText Import Export *& atxt, ) ; // @parm <c scAPPText> 
PPTiCr_Delete( 

stText Import Export* atxt ); // @parm <c scAPPText> 



/l*? 3 BBBBBBsaBBBBBBBBBBBaBBaBaBBBQBBBaaBBBasaBaaBaaBooaaanDnBBaaDaaeaBaas »/ 

======== ==°==== ======= SCCHARSPECLIST OBBBBBBBBBBBBBB^BSOBBBBStB^B »/ 

sssBcsBBnaaBBEBBBBBBsaBBasaBaBSBEeaaaasaaBBeaaoeBaaBnasaeaaBeaasaaaB */ 

// @func Safely allocate. 

status scIMPLJEXPORT SCCHTS_Alloc( 

scSpecLocList*& cslist, // @parm <c scCharSpecList> 

scStream* stream ) ; // @parm <c scStream> to associate w 

ith. 

// @func Safely delete. 

status scIMPL_EXPORT SCCHTSJtelete ( 

scSpecLocList*& cslist ); // @parm <c scCharSpecList> 



/* BBBaBBBanBaaBaaBsaaaaaaanaDaasBOBBBSDaaaBaaeaaBeaBaBaaeaBaaaaBBaaaaa * / 
/* BOBB«BBBBOB = s=BO = = a = = = BocioB CONTAINER MESSAGES = = = 3e = = = a3aB = = eacaan = a »/ 
BBBBBBBBBBBSBBBBSBaaBBBSBBBBBBBBBBBBBBBBaBaaasaaBBasaaBBaaaBaaaaBasta * / 

// @func Creates a new column/container within the Composition Toolbox universe. 

// The appName is simply a notational convenience for the client. It is 

// presumed that the client is maintaining some sort of container structure 

// and the appName is typically pointing to the clients structure. In all 

// conversations with the client we use this name. If it is 0 we will simply 

// fill in our name for it. 

// 

status scIMPL_EXPORT SCC0L_New( 
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sc5BHimn j 



y toolbox. 

ner. 

ner. 



lumn appName , 

*& newID, 

MicroPoint width, 

MicroPoint depth ) ; 



// @parm <t AP 
// @parm <c scC5 



Co^Wmn> 
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>, the name used by client, 
name of object allocated b 



// @parm <t MicroPoint> width of new text contai 
// @parm <t MicroPoint> depth of new text contai 



// @func Deletes a container, removes itself from the flowset with 
// the text in this container simply spilling over into 
// others in the flow set. 

//If it is the only column associated in the flow set 
// then the stream is also deleted. 

// To delete the whole flow set start deleting from the last column 
// so that the first column (and the stream) will be deleted last, 
status scIMPL_EXPORT SCCOL_Delete ( 

scColumn* col, // @parm Name of <c scColumn> to delete. 

scRedispList* rlnfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 

// @func Links the two columns together using the following logic: 

// C0L2 must represent the first column in a flow set. 

// C0L1 may be anywhere within a (distinct) flow set, 

// C0L2 will be chained in after COLl. The ordering/reordering 

// of the streams is as follows: <nl> 

// 1. if COLl has text and C0L2 has no text, the text flows from COLl to C0L2 
// <nl> 

// 2. if C0L2 has text and COLl has no text, the text flows from COLl to C0L2 
/?3<nl> 

//^3. if both COLl and C0L2 have text, the text from C0L2 is appended 
/>fto the text in COLl - this may may create some confusion 

the user's part, so use with care. <nl> 
/fijNOTE ! MM! ANY SELECTION IN EITHER FLOW SET WILL NO LONGER BE VALID) MM 
/^g@xref <f SCCOL_Unlink> 



slat us scIMPL EXPORT 

H 
£3 



SCCOL_Link( 

scColumn* coll, 

scColumn* col 2, 

scRedispList* rlnfo 



); 



// @parm Name of first <c scColumn>. 

// @parm Name of second <c scColumn>. 

// @parm Redisplay info, arg may be zero. 



//]@func Unlinks a column from its chain. The column passed in becomes 
/f^an empty container, and the stream remains intact. If the column 
/Mis the only column in a chain, it is a no-op. 
/H<nl>NOTE! I M M ANY SELECTION IN THE FLOW SET 
//^COLUMN WILL NO LONGER BE VALID! I M ! 
/>-@xref <f SCCOLJLink> 



status scIMPL EXPORT 



SCCOL_Unlink( 
scColumn* 
scRedispList* 



col, // @parm Name of <c scColumn> to unlink, 

rlnfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Severs the link between the two columns. The stream is left in 
// the first logical container set. The text is left in a 
// uncomposed state. <NL> 

// NOTE! M M I ANY SELECTION IN THE FLOWSET 
// COLUMN WILL NO LONGER BE VALID! ! ! ! ! 

// 

status scIMPL_EXPORT SCFS_Split( 

scColumn* coll, // @parm <c scColumn> prior to split. 

scColumn* col 2 ); // @parm <c scColumn> after split. 



// @func Resizes a column. If the column has an irregular shape 

// (such as a polygon), the width and depth values of the container 

// are updated, but no ref lowing occurs. The width and depth are independent 

// of text flow. Width is always the horizontal dimenision and depth 

// the vertical dimension. 

// 
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status scIMPL EXPORT 



SCCOL_S^Aze ( 

scCOTran* col , 

MicroPoint width, 

MicroPoint depth, 

scRedispList* rlnfo ), 



// @parm <c scColumn> to resize. 
// @parm New <t MicroPoint> width. 
// @parm New <t MicroPoint> depth. 
// @parm <c scRedispList> 
// Redisplay info, arg may be zero. 



// tests to see if there is more text than is in this column 

// this would set the flag to true if: 

// there is text in subsequent linked columns 

// there is unformatted text that will not fit in this column 



status scIMPL EXPORT 



SCCOLJforeText ( 

scColumn* col, 
B00I& flag ); 



STREAM OPERATIONS 



// @func Returns an id to the stream a column/flow set contains. 

// 

status scIMPLJEXPORT SCCOLJtet Stream ( 

scColumn* column, 
scStream*& stream ) ; 



// @parm <c scColumn> containing stream. 
// §parm <c scStream> pointer to be filled. 



// @func Writes stream to file using the call back write routine. 
// @xref <f SCCOL_GetStream> 



status scIMPL_EXPORT 



SCSTR_Write( 
scStream* 
APPCtxPtr 
IOFuncPtr 



stream, // @parm <c scStream> to write. 

ioctxptr, // @parm <t APPCtxPtr> Abstract file i/o type. 

ioFuncPtr ) ;// @parm <t IOFuncPtr> write function pointer. 



ry 

S4/ @func Reads stream from file using the call back read routine. 
l& Use the appropriate calls for file i/o 



vy <f SCSET„InitRead> i 

Cs\atus scIMPLJEXPORT 

% 

C3 

y 



<f SCOBJ_PtrRestore>, <f SCSET_FiniRead> , <f SCCOL_GetStream> 



SCSTR_Read ( 

scStream*& 

scSet* 

APPCtxPtr 

IOFuncPtr 



stream, // @parm Pointer to <c scStream> to be 

// filled in by Composition Toolbox. 
enumTable, // @parm Pointer enumeration table, 
ioctxptr, // @parm <t APPCtxPtr> Abstract file i/o type. 
ioFuncPtr ) ;// @parm <t IOFuncPtr> write function pointer. 



// @func Deletes a stream. If it is associated with a set of linked columns, 

// they become a linked set of empty containers. If no columns are 

// attached or no redraw is necessary, the scRedispList will be NULL. 

// @xref <f SCCOL_GetStream> 

// 

status scIMPL EXPORT 



SCSTR_Clear( 

scStream* stream, 
scRedispList* rlnfo )j 



// @parm <c scStream> to delete . 

// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Cuts a stream from its associated containers. 

// @xref <f SCCOL_GetStream> 

// 

status scIMPLJEXPORT SCSTR_Cut( 

scStream* stream, // @parm Stream to cut. 

scRedispList* rlnfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 
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'# 



a unique id in the 
with any containers, 



// §func Copies a stream, retu 
// The copy will not be associa : 
// §xref <f SCCOL_GetStream> 

// 

status scIMPL.EXPORT SCSTR_Copy( 

const scStream* srcStream, 
scStream*& theCopy ) ; 



second argume' 



// @parm Stream to copy. 
// @parm The new copy. 



// @func Pastes a stream into a container. If the container already has a stream, 

// the pasted stream is appended to the existing one. To conserve on 

// resources* the streamID is not duplicated. Thus, for multiple 

// pastes of one stream, a new copy of the stream must be made for each paste. 

// 

status scIMPL_EXPORT SCFS_PasteStream ( 

scColumn* col, // @parm <c scColumn> containing stream 

// which theStream will be appended. 
scStream* theStream, // @parm The stream to be appended. 

scRedispList* rlnfo ) ; // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// Extracts a scContUnit from a scStreamLocation for use with SCSTR_Split 
status scIMPL_EXPORT SCSEL_GetContUnit ( 

scContUnit*& mark, 

scContUnit*& point, 

const scSelection* ) ; 



This call is used to undo a link. To set this up, 

before linking two columns coll and col2, save references 

to their streams, stream 1 and stream2, respectively. 
l *Mf When unlinking coll and col2, call scStreamSplit ( streaml, stream2 ) 
y3" to split the stream into its original two pieces. This call should be 
Ys% followed with a call to SCPasteStream( col 2, stream2, scRedispList *) 
'// to reset the unlinked column's stream to its original value. 

NOTE: both streaml and stream2 are assumed to be valid (non-NULL) . 

This call should only be made with reformatting turned off. 

s/ 

(H t 3 I J 

status scIMPL_EXPORT SCSTRJ3plit( 

scStream*, 

j.j scContUnit*, 
i £ scStream*& ) ; 

h 

|3 @func Compare streams for equality, this tests content and specs 

// scSuccess — equality 

// @xref <f SCCOL_GetStream> 

// 

status scIMPL_EXPORT SCSTR_Compare ( 

const scStream* strl, // @parm <c scStream> 

const scStream* str2 ) ; // @parm <c scStream> 



COMPOSITION OPERATIONS & COMPOSITION ERROR RECOVERY ™— */ 
// @func Sets recomposition off or on in the flow set of the indicated column 

// 

status scIMPL_EXPORT SCFS_SetRecorapose ( 

scColumn* col, // @parm Flow set to turn composition off or on 

in . 

Bool onOff ); // @parm true on, false - off 

// @func Gets the current recomposition state of the flow set. 

// 

status scIMPL_EXPORT SCFS_GetRecompose ( 

scColumn* col, // @parm Flow set to query. 

Bool& onOff ); // @parm Composition flag. 

// @func Recomposes the flowset. 

// 
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status scIMPL_EXPORT SCFS.Re^^Base ( 

scCcWmn* col, // @parm Flow set^S recompose. 

scRedispList* rinfo ) ;// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// NOT IMPLEMENTED 

// Recompose a portion of the stream in the flowset. Process the flowset 
// for the number of ticks indicated. We will process paragraphs 
// until time exceeds the ticks 

// 

"MM 

status scIMPL_EXPORT SCFS_Recompose ( scColumn*, 

long ticks, 
scRedispList* ) ; 



// Rebreaks all the lines in a column, with extreme prejudice; 
//it ignores the flowset RecomposeHold() setting and processes 
// only the indicated column, it will return an error if a prior 
// column is uncomposed 

// 

"MM 

status scIMPL_EXPORT SCCOL_Recompose ( scColumn*, 

scRedispList* ) ; 



// @func Applies the specs in the CharSpecListHandle to the text 
// at the locations indicated therein. 
// @xref <f SCCOL_GetStream> , <f SCSTR_CHTSList> 
Status scIMPL_EXPORT SCSTR_CHTSListSet ( 

scStream* stream, // @parm <c scStream> to apply scCharSpecList to 



£ : and locations. 

i y 



const scSpecLocList& cslist, // @parm <c scCharSpecList> list of spec 

scRedispList* rinfo );// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



status scIMPL EXPORT 



SCSTR_J?ARATSListSet ( scStream* stream, 

const scSpecLocListSt cslist, 
scRedispList* rinfo ); 



%.J 



— CONTAINER CONSTRAINT OPERATIONS 



V£ These routines set containers to be flexible in the horizontal or 
J vertical dimensions. A flexible container varies in size with its contents. 
s ? A vertically flexible container varies with the number of lines; 
ki it grows until it reaches either the last character in the stream or 
£3 a column break. A horizontally flexible container varies with the width 
// of its widest line; it grows until the end of the paragraph or a hard 
// return. 
// 

// NOTE: !M!!!l!ll!l!l!l!t!!!ll!l!!1!l(!ll!!inill!ll!fl!l!ll!l!ll1ll!l!l 
// Container FLEXIBILITY and IRREGULAR shapes are MUTUALLY EXCLUSIVE! II!!! 
// Setting a container to be flexible automatically clears any 
// irregular shape associated with the column. 

// 



// @func Turns on vertical flexibility. 

// @xref <f SCCOL_GetVertFlex>, <f SCCOL_ClearVertFlex> 

status scIMPL_EXPORT SCCOLJSetVertFlex ( 

scColumn* col, // @parm <c scColumn> to set flex. 

scRedispList* rinfo ) ;// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Turns off vertical flexibility. 

// @xref <f SCCOL_SetVertFlex>, <f SCCOL_GetVertFlex> 

status scIMPL_EXPORT SCCOL_ClearVertFlex ( 

scColumn* col, // §parm <c scColumn> to clear flex. 
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;^^BpList* rlnfo ) ;// @parm <c scR^^B 



List> 

// Redisplay infoT'arg may be zero. 



// @func Gets the vert flex attribute of the column. 
// @xref <f SCCOL_SetVertFlex>, <f SCCOL_ClearVertFlex> 

status scIMPL_EXPORT SCCOL_GetVertFlex ( 

scColumn* col, // @parm <c scColumn> to get attribute from. 

B00I& onOff ); // @parm Vertical flex attribute, true 

// equals on, false off. 



// @func Turns on horizontal flexibility. 

// @xref <f SCCOL_GetHorzFlex>, <f SCCOL_ClearHorzFlex> 

status scIMPL_EXPORT SCCOL_SetHorzFlex ( 

scColumn* col, // @parm <c scColumn> to set flex. 
scRedispList* rlnfo ) ;// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Turns off horizontal flexibility. 

// @xref <f SCCOL_SetHorzFlex>, <f SCCOL_GetHorzFlex> 

status scIMPL_EXPORT SCCOL_ClearHorzFlex ( 

f- 3 scColumn* col, // @parm <c scColumn> to clear flex. 

scRedispList* rlnfo ) ;// @parm <c scRedispList> 
W // Redisplay info, arg may be zero. 



44 @f unc Gets the horzontal flex attribute of the column. 
@xref <f SCCOL_SetHorzFlex>, <f SCCOL_ClearHorzFlex> 

sbhtus scIMPL_EXPORT SCCOL_GetHorzFlex ( 

s scColumn* col, // @parm <c scColumn > to get attribute from. 

f3 B00I& onOff ); // @parm Horizontal flex attribute, true 

I", // equals on, false off. 

u 

/y^ @f unc Gets the direction of lines in the container, 
/£* and of characters in the lines. 

/M@xref <f SCCOL_SetFlowDi recti on > 

? 1 

status scIMPL_EXPORT SCCOL_GetF lowDi recti on ( 

scColumn* col, // @parm <c scColumn> to query. 

scFlowDir& f d ) ; // @parm <c scFlowDir> of column. 

// @func Sets the direction of lines in the container, 
// and of characters in the lines. 
// @xref <f SCCOL_GetFlowDirection> 

status scIMPL„EXPORT SCCOL_SetF lowDi recti on ( 

scColumn* col, @parm <c scColumn> to set. 

const scFlowDir& f d ) ; // @parm <c scFlowDir> value to 

// set of column. 

/*=- — — POLYGON CONTAINER SHAPE OPERATIONS — — ™-««o»/ 

#if defined ( scColumnShape ) 

// The application may create polygons in any way that it sees fit. 
// They are then passed into the Toolbox and text flows into them 
// using an even-odd area fill algorithm. 
// 



// Pastes in a set of vertices to be added to the column's current 
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// vertex list. 
// 

" I ] I 1 

status scIMPL_EXPORT SCCOL_PastePoly ( scColumn*, 

const scVertex*, 
scRedispList* ) ; 



// Extracts a copy of the polygon applied to this column, 
// causing no recomposition . Useful for editing the polygon. 
// 

//[][] 

status scIMPL_EXPOKT SCCOL_CopyPoly ( scColumn*, 

scVertex*& ) ; 

// Clears the polygon applied to this column. 
// 

//[][] 

status scIMPLJEXPORT SCCOL.ClearPoly ( scColumn*, 

scRedispList* ) ; 



/* = 



REGION RUN-AROUND OPERATIONS 



// Regions are high precision descriptions of arbitrary shapes. 
// They are useful for representing irregularly shaped containers, 
// or for enabling text to run around objects intersecting a given container. 
// The application may use them to represent containers 
d that have been modified by intersection with other page objects. 



ff* @func Applies a region as the shape of this column. 
|yi The region is assumed to be in local coordinates. 

SCCOL_PasteRgn ( 

scColumn* col, 
const HRgnHandle rgn, 
scRedispList* rlnfo ); 



slat us scIMPL_EXPORT 



// @parm <c scColumn> to apply region to. 

// @parm Region to apply. 

// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



f i 

@func Extracts a copy of the region applied to this column, 
S4 causing no recomposition. 

i4 



tatus scIMPLEXPORT 



C3 



SCCOL.CopyRgn ( 

scColumn* col, // @parm <c scColumn> with region 
HRgnHandle& rgn ); // @parm <t HRgnHandle> the region copy. 



// @func Clears the region belonging to this column. 



// 

status scIMPL_EXPORT 



SCCOL_ClearRgn( 

scColumn* col, 
scRedispList* rlnfo ) ; 



// @parm <c scColumn> to clear region. 

// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// The following functions operate on regions. 

// @func Create a new region, 

// 



status scIMPL_EXPORT SCHRGN_New( 

HRgnHandle& newRgn, 
MicroPoint sliverSize); 

// @func What sliver size is a region using. 

status scIMPLJiXPORT SCHRGN_SliverSize ( 



// @parm <t HRgnHandle> 
// @parm Sliver size. 
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CO 

Mic: 



crwoin 



nHandle rgn, 
bint& sliverSize); 



// @parmi 
// @parm 



i Size o 
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nHandle> 
of sliver. 



// @func Dispose a region. 



status scIMPL_EXPORT 



SCHRG*JJ)ispose( 

HRgnHandle disRgn ); 



// @parm <t HRgnHandle> to dispose. 



// @func Make a region empty, remove all slivers. 



status scIMPLEXPORT 



SCHRGN_SetEmpty ( 

HRgnHandle emptyRgn ) ; 



// @parm <t HRgnHandle> to empty. 



// @func Is a region empty. 

// @rdesc scSuccess «« empty region 



status scIMPLJEXPORT 



SCHRGN„Empty( 

const HRgnHandle emptyRgn ) ; 



// @parm <t HRgnHandle> to test. 



// @func Compare to regions for equality. 
// @rdesc scSuccess cta equality 



status scIMPLEXPORT 



SCHRGN_Equal( 

const HRgnHandle rgnl, 
const HRgnHandle rgn2 ) ; 



// @func Determine if point is in region. 

// @rdesc scSuccess « equality 

// 

status scIMPL_EXPORT SCHRGN_PtIn( 

'"^ const HRgnHandle 

^ const scMuPoint& 



rgn, 

Pt ); 



// @parm <t HRgnHandle> , 
// @parm <t HRgnHandle>, 



// @parm <t HRgnHandle> to test. 
// @parm <c scMuPoint> 



4/\ @func Make a region rectangular. 

ft 



status scIMPL_EXPORT 

I j 



SCHRGN_Rect ( 

HRgnHandle rng, // @parm Region to apply rect . 

const scXRectfit rect ) ; // @parm <c scXRect> 



A3 @f unc Make a region from a set of verticies ( closed polygons (s) ). 
4/ The polygon must have both a horizontal and vertical dimension 
&\ ( e -g- it must have interior space) 



s'tktus scIMPL_EXPORT 

S I 

1$. 

@f unc Copy a region. 

C3 

status scIMPL EXPORT 



SCHRGN_Poly( 

HRgnHandle rng, // @parm Region to apply polygon. 

const scVertex* polys );// @parm <c scVertex> Polygon (s) description. 



SCHRGN_Copy ( 

HRgnHandle dstRgn , 

const HRgnHandle srcRgn 



// @parm The copy. 
// @parm To copy. 



// @f unc Translate a region . 



status scIMPL EXPORT 



SCHRGNJTranslate ( 
HRgnHandle rgn, 
MicroPoint x„ 
MicroPoint y ); 



// @parm Region to inset. 

// @parm Horizontal translation. 

// @parm Vertical translation. 



// @func Inset a region, 
status scIMPL EXPORT 



SCHRGN_Inset ( 

HRgnHand 1 e rgn , 

MicroPoint h, 

MicroPoint v ); 



// @parm Region to inset. 

// @parm Horizontal size change, 

// @parm Vertical size change. 



// @func Is this rect contained within the region. 



status scIMPL_EXPORT 



SCHRGN_RectIn( 

const HRgnHandle rgn. 



// @parm Region to test. 
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con^^^?XRect& rect ) ; // @parm <c ^^^ct> 

// Perform Boolean operations on regions, the 3rd arg may be one of the 

2 original regions, in that case it will replace the contents of after the 
// operation is complete. 

// @func Performs an intersection of two regions, placing the intersection 
// in a third region. 

status scIMPL_EXPORT SCHRGN_Sect( 

const HRgnHandle rl, // @parra <t HRgnHandle> 

const HRgnHandle r2, // @parm <t HRgnHandle> 

HRgnHandle intersection );// @parm <t HRgnHandle>, 

// the intersection of rl & r2. 

// @func Performs the union of two regions, placing the union in a third region. 

status scIMPL_EXPORT SCHRGN_Union ( 

const HRgnHandle rl, // @parm <t HRgnHandle> 

const HRgnHandle r2, // @parm <t HRgnHandle> 

HRgnHandle rUnion ); // @parm <t HRgnHandle>, 

// the union of rl & r2. 



// @func Performs a difference of two regions, placing the diff 
// in a third region. 



status scIMPL_EXPORT 



SCHRGN.Diff ( 

const HRgnHandle rl, 
const HRgnHandle r2, 
HRgnHandle difference ); 



// @parm <t HRgnHandle> 
// @parm <t HRgnHandle> 
// @parm <t HRgnHandle>, 
// the difference of rl & r2. 



ry 

@func Performs an xor of two regions, placing the result in a third region 

s4itus scIMPL_EXPORT SCHRGN__Xor( 

Q const HRgnHandle rl, 

s const HRgnHandle r2, 

fH HRgnHandle xor ); 

[aid if 

b 

ODnDoasssesssssisSE: 



// @parm <t HRgnHandle> 
// @parm <t HRgnHandle> 
// @parm <t HRgnHandle>, 
// the xor of rl & r2. 



RENDERING 



anosaaoBocll/ 



// @func Renders/draws that part of the column lying within the 

// given rect. The scXRect is in local coordinates. The Toolbox 

// then calls back to the client using <f APPDrawStartLine>, 

// <f APPDrawString>, & <f APPDrawEndLine> , passing the <t APPDrwCtx> 

// through. This call and <f SCCOL_UpdateLine> are the only two calls 

// that cause glyphs to be drawn. ALL DRAWING OF TOOLBOX CONTAINERS 

// HAPPENS AT THE BEHEST OF THE CLIENT. 

// @xref <k APPDrawStartLine>, <k APPDrawString> , & <k APPDrawEndLine> 

status scIMPL_EXPORT SCCOL_Update ( 

scColumn* col, // @parm <c scColumn> to draw 

const scXRect& clipRect, // @parm Clip rect. 

APPDrwCtx dc ) ; // @parm Drawing context. 



/« ao8BDO a nan o BO o S , a « CONTAINER & LINE EXTENTS ===« ====-«ooo aB o«/ 



// @func Queries ink extents of the column. The extents returned are 
// the maximum bounding box of the maximum character extents expressed 
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// in the column's coordinate 
// 

status scIMPL_EXPORT SCCOL_QueryInkExtents ( 

scColumn* col, // @parm <c scColumn> to query. 

scXRect& inkExtents ) ; // @parm <t scXRect> 



// @func Queries margins of the column. Returns the actual size of the 
// container, rather than the extents. Only meaningful for rectangular 
// containers. Bear in mind that the ink of text may extend outside of the 
// container. 

// 

status seIMPL_EXPORT SCCOL_QueryMargins ( 

scColumn* col, // @parm <c scColumn> to query. 

scXRectfit margins ) ; // @parm <t scXRect> 




// Queries positions of the column's lines. For each line, it queries 

// the baseline, the extents, and the character characteristics at 

// the start (x height, ascender height, descender height, cap height, etc. ). 

// The last two parameters indicate the number of lines and whether text 

// overflows the column. 

// Typically used for alignment purposes. Positions are in the container's 
// local coordinates. 

// 

//[][] 

status scIMPL_EXPORT SCCOL_LinePositions ( scColumn*, 

scLinelnfoList*, 
longSc, 

?=i B00I& ); 

£?l @func Queries the depth of the column. Useful for determining the depth 
f/\ of irregularly shaped columns. 

y X 

Stratus scIMPL_EXPORT SCCOL_Size( 

Id scColumn* col , // @parm <c scColumn> 

\,\ scSize& size ) ; // @parm <c scSize> 

ftc? 

/*^== ====== ============ SCRAP CONVERSION == ========== c = a =oo Clc , 0 . a »/ 

^ J 

These routines provide a means of converting between the Toolbox 
/|4 world and the outside world, typically a conversion into the 
/^lowest common denominator — text. 

15 

// §func Converts Toolbox scrap in the scScrapPtr to global scrap and 
// stores it in the given Handle, which should be passed in as a 
// valid handle. The Handle then contains 

// a "C" string. This is one case where the Toolbox will not free 
// the new structure it creates. 

// 

status scIMPLJXPORT SCSCR_ConToSys ( 

scScrapPtr scrap, // @parm <c scScrapPtr> 

SystemMemoryObjectSt memobj ); // @parm <c SystemMemoryObject> 



// §func Converts global scrap in the Handle to Toolbox scrap 

// and places it in the given scScrapPtr, putting it on 

// the internal Toolbox clipboard. The handle should contain 

// a "C" string, so that when 0 is encountered, we stop reading. 

// 

status scIMPL_EXPORT SCSCR_SysToCon ( 

scScrapPtr& scrap, // @parm <c scScrapPtr> 

const scChar* stringscrap,// @parm Null terminated "C" string 

// from system scrap. 
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Typ^^^? ts ); // @parm <t Typel^^^ to apply to string. 



// @func Frees the scScrapPtr. 

// 

status scIMPL_EXPORT SCSCR_Free( 

scScrapPtr scrap ) ; // @parm <c scScrapPtr> 



// @func Returns the list of specs referenced by the contents of the scScrapPtr. 

// 

status scIMPL_EXPORT SCSCRJTSList ( 

scScrapPtr scrap, // @parm <c scScrapPtr> 

scTypeSpecListS tslist ); // @parra <c scTypeSpecList> 



// @func Writes the contents of the scScrapPtr to disk. 

status scIMPL_EXPORT SCSCR„Write( 

scScrapPtr scrapPtr, // @parm <c scScrapPtr> 

APPCtxPtr ctxPtr, // §parm <t APPCtxPtr> 

IOFuncPtr iofuncp ); // @parm <t IOFuncPtr> 



C3 
w 

fj\ @func Reads from disk into the scScrapPtr 
%A Scrap to be read must be a column. 
W @xref <f SCSET_InitRead> 
siatus scIMPL_EXPORT SCSCR_ReadCol ( 



n 



scScrapPtr& 


scrap. 


// 


@parm 


<c 


scScrapPtr> 


scSet* 


enumtable. 


// 


@parm 


<c 


scSet> 


APPCtxPtr 


ctxPtr, 


// 


@parm 


<t 


APPCtxPtr> 


IOFuncPtr 


readFunc ).; 


// 


@parm 


<t 


IOFuncPtr> 



C3 

H 

4£ @func Reads from disk into the scScrapPtr, using the call back 
read routine, which should conform to the same header as above 
/A Scrap to be read must be a stream. 

A3 

s3£tus scIMPL_EXPORT SCSCR_RsadStream ( 

scScrapPtr& scrap, 
scSet* enumtable, 
APPCtxPtr ctxPtr, 
IOFuncPtr readFunc ) 



// @parm <c scScrapPtr > 
// @parm <c scSet> 
// @parm <t APPCtxPtr> 
// @parm <t IOFuncPtr> 



/» ncc = =oaacx3oaacsca = nen TYPE SPEC I F I CAT I ON o = oonaa = ocB3ascaD3ii=c*/ 



// @func Informs the Toolbox that the TypeSpec has been changed and 
// tells it what action needs to be taken to respond accordingly. 
// The Toolbox will recompose, rebreak, or repaint (as instructed 
// by SpecTask) and report back on damage. SpecTasks may be ORed 
// together to indicate multiple tasks. The host application 
// can derive the tasks by calling the function SpecTaskCa leu late, 
// located in the source module (delivered with the Toolbox) 
// sc_spchg.cpp. 



status scIMPL_EXPORT 
eeds to be 



SCENG_ChangedTS ( 
TypeSpec 



// @parm <t TypeSpeO has changed and text n 
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eSpec«sk 
scRedispList* 



// re forma tte^^H reflect the change. 
specTask, // @parm <t eS^cTask> tells the toolbox 

// what action to take to repair the change, 
rlnfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 
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// @func Gets a list of TypeSpecs in a column. 
// @xref <f SCSTR_TSList>, <f SCSEL_TSList> 

status scIMPL_EXPORT SCCOL_TSList ( 

scColumn* col, // @parm <c scColumn> to query. 

scTypeSpecList& tslist ); // @parra <c scTypeSpecList> contains 

// a list of specs used. 



// @func Gets a list of TypeSpecs in a stream. When working with linked columns, 

this is more efficient than iteratively calling SCColTSList. 
// @xref <f SCCOL_JSList>, <f SCSELJTSList> 



status scIMPL EXPORT 



SCSTRJTSList ( 

scStream* col , 

scTypeSpecList& tslist ); 



// @func Gets a list of ParaTypeSpecs in a stream. 
//=3@xref <f SCCOL_TSList>, <f SCSEL_TSList> 



// @parm <c scStream> to query. 

// @parm <c scTypeSpecList> contains 

// a list of specs used. 



status scIMPL„EXPORT SCSTR_ParaTSList ( 
jfn scStream* col , 

scTypeSpecListfit tslist ); 

*3 

/jbJ@func Gets a list of TypeSpecs in a selection. 
/<j@xref <f SCCOLJTSList>, <f SCSTR_TSList> 

sCStus scIMPL_EXPORT SCSEL_TSList ( 
5 scSelection* sel , 

p scTypeSpecList& tslist ); 



status scIMPL_EXPORT 

i : I 



SCSELJPARATSList( 

scSelection* sel , 
scTypeSpecList& tslist ); 



// §parm <c scStream> to query. 

// @parm <c scTypeSpecList> contains 

// a list of specs used. 



// @parm <c scSelection> . 

// @parm <c scTypeSpecList> contains 

//a list of specs used. 

// @parm <c scSelection> . 

// @parm <c scTypeSpecList> contains 

// a list of specs used. 



// §func Gets a list of the (TypeSpec, character location) pairs 
// representing the TypeSpec runs of the stream. 



status scIMPL_EXPORT 



status scIMPL EXPORT 



SCSTR_CHTSList ( 

scStream* stream, 
scSpecLocList& cslist ); 



SCSTR_PARATSList ( scStream* 

scSpecLocList& 



// @parm <c scStream> to query. 
// @parm <c scCharSpecList> has 
// positions of all specs contained. 

stream, 
cslist ); 



// @func Gets a list of the (TypeSpec, character location) pairs 

// representing the TypeSpec runs of the selection. 

// CAUTION: the ends of paragraphs are marked by NULL specs, 

// so depending on how many paragraphs the selection traverses, 

// there may be multiple NULL specs contained in the list. 

// These NULL specs are not terminators of the list; 

// rely upon the CharSpecListHandle ' s count field for the 

// accurate number of structures in the list. 

// 

status scIMPL_EXPORT SCSEL_CHTSList ( 

scSelection* sel, // @parm <c scSelection> to query. 
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tocListSc cslist ) ; 



sc^^^c 



status scIMPL EXPORT 



SCSEL_PARATSList ( scSelection* 

scSpecLocList& 



// @parm <c 
// positions 

sel , 

cslist ); 
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arSpecList> has 
all specs contained. 



// @func Counts the characters in a stream. This 
// does not repesent an exact count for file i/o 
// of characters written out. 
// 



status scIMPL EXPORT 



SCSTR_ChCount( 
scStream* 
long& 



str, 

chCount ) , 



// @parm <c scStream> to query. 
// @parm Characters in stream. 



#ifdef scF low Justify 

// @func Sets the vertical justification attributes for the column to be 
// flush top (no justification), flush bottom, centered, justified, 
// or force justified. 

// 

status scIMPL_EXPORT SCCOL_FlowJustify ( 

scColumn* col, // @parm <c scColumn> 

eVertJust v j ) ; // @parm <t eVertJust> 



@func Sets the depth of a vertically flexible column and 
vertically justifies it. This is the only way to vertically 
justify a vert flex column. It should not be used with columns 
\/y that are not vert flex. 

@xref <f SCCOL_SetVertFlex> 



Qiatus scIMPL EXPORT 



SCCOL_SetDepthNVJ( 

scColumn* col, 

MicroPoint depth, 

scRedispList* rlnfo ) t 



// @parm <c scColumn> 

// @parm Depth to VJ to. 

// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



l&ndif /* scF low Justify */ 



COOTENT CUT, COPY, PASTE & CLEAR 



// These routines move text in and out of the Toolbox „ 
// with filters converting text as necessary. 



// @func Appends the text contained in the APPText to the end 

//of the stream associated with the scColumn* (formerly SCReadAPPText) 

// @xref <f SCSTR„GetAPPText> 



status scIMPL_EXPORT 



ked up" text. 



SCFS_PasteAPPText ( 

scColumn* col, 

stText Import Export& 

scRedispList* rlnfo ) ; 



// @parm <c scColumn> in flow set to paste 
// the text. 

appText, // @parm <c scAPPText> contains "mar 

// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



status scIMPL_EXPORT 



SCSEL_PasteAPPText ( 
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te 



up*' text. 



tion« 



sel , 



// @pa: 
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scColumn> in flow set to pas 



stTextImportExport& 



// the text . 

appText,// @parm <c scAPPText> contains "marked 



scRedispList* rlnfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



// @func Returns a copy of the given stream in APPText&. 
// @xref <f SCFS_PasteAPPText> 



status scIMPL_EXPORT 
t from, 
ked up" text, 
status scIMPL_EXPORT 

up" text from, 
ked up" text. 



SCSTR_GetAPPText ( 

scStream* str, 

s tTex t ImportExportSt 



SCSEL_GetAPPText ( 
scSelection* 

s tTex t ImportExportSc 



// @parm <c scStream> to get "marked up" tex 
appText ) ; // @parm <c scAPPText> contains "mar 

str, // @parm <c scStream> to get "marked 

appText ); // @parm <c scAPPText> contains "mar 



CONTENT I/O = 



ioaoa=3D#/ 



y% These routines read and write ASCII text files with mark-up 
\J 

W( @func 

to the 
*)y The ca 



Imports Latin- 1 text -- adds the contents of the text file 
column using the TypeSpec as the default text specification. 
11 back 10 function should conform to the header: 



l&atus scIMPL_EXP0RT 



u 



W @func Exports text 
status scIMPL_EXPORT 



SCFS_ReadTextFi le ( 

scColumn* col, 

TypeSpec spec, 

APPCtxPtr ctxp, 

IOFuncPtr read, 

scRedispList* rlnfo ) ; 



// @parm <c scColumn> 
// @parm <t TypeSpeO 
// @parm <t APPCtxPtr> 
// @parm <t I0FuncPtr> 

// @parm <c scRedispList> 
// Redisplay info, arg may be zero. 



— writes the stream to the text file. 

SCSTRJtfri teTextFi le ( 

scStream* stream, // @parm <c scStream> 

APPCtxPtr ctxp, // @parm <t APPCtxPtr> 

IOFuncPtr write );// @parm <t I0FuncPtr> 



// @func Reads an Latin- 1 text file and returns a scrap handle to it. 
// This is useful for importing text and pasting it into a stream 
// at an insertion point. The call back 10 function should 
// conform to the same header as above. 

// 

status scIMPL EXPORT 



SCSCR_TextFile( 
scScrapPtr& 
APPCtxPtr 
IOFuncPtr 



scrapP, // @parm <t scScrapPtr> 
ctxp, // @parm <t APPCtxPtr> 
read ); // @parm <t I0FuncPtr> 



bdbbb FILE I/O B°o°onaDaai>aoaaaBoai>DaoaD3#/ 
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// These routines read and wri^^^e Toolbox structures to disk. */ ' 

// @func Tells the Toolbox that the application is about to 
// commence writing structures out. This zeros the enumeration 
// count of all objects in the Toolbox within this context 
// 

status scIMPL_EXPORT SCTB_2eroEnumeration ( void ); 



// @func Tells the object to enumerate itself. 
// 

status scIMPL_EXPORT SCOBJJEnumerate ( 

scTBObj* obj, 
long& ecount ) ; 



// @func Stores the structures for this object. Streams and linked columns 
// are by default written out with the first column; writes to columns 
// that are not the first column of a stream are no-ops. 

// 

status scIMPL_EXPORT SCCOL_Write( 

scColumn* col , // @parm <c scColumn> 
APPCtxPtr ctxp, // ©parrn <t APPCtxPtr> 
IOFuncPtr write ) ;// @parm <t IOFuncPtr> 



// @func Tells the Toolbox that the application is about to 

commence reading structures in. This allocates an enumeration 
structure of class scSet, when the file was written out the 
client probably should have noted the enumeration count, by doing this 
fffi we may allocate enough members of the enumeration structure 
fy to at least guarantee that there will be no failure in inserting 
members into the enumeration structure 



feiatus scIMPL_EXPORT 

U. 3 
'■4 

C3 
ly 



SCSET_InitRead( 

scSet*& enumerationTable, 



long 



preAl locat ionCount ) ; 



// §parm Pointer to enum table 
// that Composition Toolbox will 
// allocate - pre allocating the 
// number of slots indicated to 
// minimize memory failures on 
// file i/o. 

// @parm Preal locate this many slots 
// in the enum table. 



Zt @func Lets the Toolbox know the application is finished reading 
k3 so it can free structures for restoring pointers and will 
// recompose everything that needs recompostion . 
// 

status scIMPLJEXPORT SCSET__FiniRead ( 

scSet* enumTable 
scRedispList* rlnfo ); 



// @parm This table will be freed. 
// @parm <c scRedispList> 
// Redisplay info, arg may be zero. 



// @func Read this column. 
// 

status scIMPL_EXPORT SCCOL_Read( 

APPColumn appcol, // @parm Client's <t APPColumn> to 

// associate with this column. 

scColumn*£c col, // @parm <c scColumn> 

scSet* enumTable, // @parm <c scSet> 

APPCtxPtr ioctxptr, // @parm <t APPCtxPtr> Abstract file i/o type 

IOFuncPtr ioFuncPtr ) ;// @parm <t IOFuncPtr> write function pointer 



// @func Tells the object to restore its pointers. This 

// function relies upon <f APPDiskIDToPointer> . 

// 
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J^^Astore ( 

cSPR * ob j , // @parm Res^We 



status scIMPL_EXPORT SCOBJ_ 

scTW*j* obj, // @parm ResWTe this objects pointers. 

scSet* enumTable ); // §parm Use this enumtable. 



// @func Prior to calling SCO BJ„PtrRe store the client may want to abort 

// the action for some reason. In that case call the following 

// and all objects that have been read in* but have not had 

// their pointers restored will be deleted, including the 

// the enumeration table (scSet) 

// 

status scIMPL_EXPORT SCSET_Abort( 

scSet*& enumTable ) ; // @parm <c scSet> 



// @func Gives the size of a Toolbox object that will be written to disk. 
// The first column in a flow set will contain the content /sc tream . 

// 

status scIMPL_EXPORT SCExternalSize ( 

scColumn* col, // @parm <c scColumn> 

longSe bytes ); // @parm Disk bytes. 



/* 0 = a = o B D C = = D = r:= !C n = a al£a SELECTION MESSAGES ° = = = = = = = = = = = = = « = =<<=«=<*/ 



// @func Forces the initial selection within an empty container by creating 
// an initial stream. Two conditions present interesting error conditions 
// with this call . 

^ <nl>l. If the formatted text cannot fit into the container a 
W scERRstructure is returned, 

Xi <nl>2. If the container is not the first in a flow set then 
fp? scERRlogical is returned. 

<nl>The client must perform the first highlighting of the cursor by 

following this call with a call to <f SCHiLite> . 

fegatus scIMPL_EXPORT SCCOL_InitialSelect ( 

^"j scColumn* col, // @parm <c scColumn> 

w J TypeSpec& spec, // @parm <t TypeSpec> 

£ J scSelection*& select ) ; // @parm <c scSelection> 

3 

C3 

%A @func Provides information on how good the hit is, 
?/ to be used for selection evaluation . 

%2 the REAL num is the distance squared in micropoints from the 
k2 hitpoint to the nearest charcter and its baseline 

13 

status scIMPL_EXPOKT SCCOL_ClickEvaluate ( 

scColumn* col, // @parm <c scColumn> . 

const scMuPointSe evalpt,// @parm Point to evaluate. 

REAL& dist ) ;// @parm Squared dist in <t MicroPoints> . 



// @func The mouse down click should force a call of SCCOLJStartSelect and 

// mouse moves should get <f SCCOL_JExtendSelect> . Effectively the StartSelect 

// message forces a flow set to get the focus. Is is an error to call 

// ExtendSelect with a column from a different flow set than was called 

// from the original StartSelect. Also the client may want to coerce points 

// to lie within the column's extents. If the container is rotated the coercion 

// should happen in the containers coordinate space to insure correct 

// interpretation of the coercion. 

// After the first StartSelect message the Selection is accurate so if 
// auto scrolling is necessary it may be done, provided the clip region 
//is set up correctly. 
// <nl> 

// <nl>NOTE: The caller should filter out redundant mouse hits, (i.e if the 
// current mouse hit is the same as the last mouse hit don't call 
// SCCOL_ExtendSelect 
// 

status scIMPL_EXPORT SCCOL_StartSelect ( 

scColumn* col , // @parm <c scColumn> 
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cMuPointSt hitpt 



HiliteFuncPtr 

APPDrwCtx 

scSelection*& 



roorain 
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// @parm The^^V point in 
// object coordinates, 
hlfunc, // @parm <t HiliteFuncPtr> 
drwctx, // @parm <t APPDrwCtx > 

sel ); // @parm <c scSelection> to be filled in 
// by the Composition Toolbox. 



// @func This extends the selection from the scStreamLocation and then may 

// be followed with <f SCCOL_ExtendSelect> . 

// @xref <f SCCOL_StartSelect> 

status scIMPL_EXPORT SCCOL_StartSelect ( 

scColumn* col, 

scStreamLocation& stloc, 

const scMuPoint& hitpt, 

HiliteFuncPtr hlfunc, 

APPDrwCtx drwctx , 

scSelection*& sel ); 



// §parm <c scColumn> 
// @parm <c scStreamLocation> 
// @parm The hit point in 
// object coordinates. 
// @parm <t HiliteFuncPtr> 
// @parm <t APPDrwCtx > 
// @parm <c scSelection> 



// @func Extends a selection derived from <f SCCOL_ExtendSelect> , 
// be used over multiple columns in a flowset. 



Can 



status scIMPL EXPORT 



J5 XX. 



SCCOL_ExtendSelect ( 

scColumn* col , 

const scMuPoint& hitpt, 

HiliteFuncPtr hlfunc, 

APPDrwCtx drwctx , 

scSelection* sel ); 



// @parm <c scColumn> 

// @parm The hit point in 

// object coordinates. 

// @parm <t HiliteFuncPtr> 

// @parm <t APPDrwCtx > 

// @parm <c scSelection> 



/>* @func Converts a <c scSelection> into a mark and point. 

?4 The mark is guaranteed to logically precede the point. 

/>j This call is typically used in conjunction with <f SCSEL_Restore> and 

77 to determine information at the selection point. 

?/ @xref <f SCCOL_StartSelect>, <f SCCOL_ExtendSelect> , <f SCCOL__InitialSelect> 

£3 

status scIMPL_EXPORT SCSEL_Decompose ( 

si scSelection* sel, // ©parrn <c scSelection> 

scStreamLocation& mark, // @pann <c scStreamLocation> 
i~ scStreamLocation& point );// @parm <c scStreamLocation> 

4£ same as above except that the selection is not sorted 

stratus sc IMPL_EXPORT SCSEL_Decompose2 ( 

scSelection* sel, // @parm <c scSelection> 

scStreamLocationSe mark, // @parm <c scStreamLocation> 
scStreamLocationSt point ) ;// @parm <c scStreamLocation> 



// @func Invalidates the selection in the toolbox, changes the selection 
// to null and invalidates the selection in the toolbox 

status scIMPL_EXPORT SCSEL.Invalidate ( 

scSelection*& sel ); // @parm <c scSelection> 

// §func Sets up a text selection, using the given 

// mark and point. Useful for restoring the selection 

// when re-activating a document, and for undo and redo, 

// especially for undoing arrow and backspace keystrokes. 

// In this call the <c scStreamLocation> need only have the following 

// member variables filled in: 

// <nl> fParaNum 

// <nl> fParaOffset 

// <nl>All the rest are unneeded. After this call subsequent calls 
//to <f SCSEL_Decompose> will fill in the scStreamLocation values 
// correctly. 
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Dns^scStream* stream, // @parm tEs 



status scIMPL_EXPORT SCSELjj 

cons^scStream* stream, // @parm^^ scStream> 

const scStreamLocationSc mark, // @parm <c scStreamLocation> 
const scStreamLocation& point, // @parm <c scStreamLocation> 
scSelection*& sel, // @parm <c scSelection> 

Bool geometryChange ) ; // has the layout changed 



/» aBBaBaaBSBBaBSBBBSBBaBBBsaaaBaaaaBasaBaBBssaaBaBBSBBBaaBaBBaBBaBBaBSBB*/'' 

// @func Using a hitpt and a modifier (such as selection of a word or paragraph), 
// returns a selection. 

// 



status scIMPL_EXPORT 



SCCOLJSelectSpecial ( 

scColumn* col, 

const scMuPoint& hitPt, 

eSe 1 ectMod i f i er mod , 

scSelection*^ sel ) ; 



// @parm <c scColumn> 

// @parm Hit point. 

// @parm <t eSel ectMod if ier> 

// @parm <c scSelection> 



/» BaBaaaaaaaaaaaaaBBaBBaBBaaaaaaBaaaaBaaasaBaoBBaaaaaaBBaaaaaaBaBBBBBBBB*/ 

// This grows the selection according to the enum eSelectMove found in 

// sctypes. h 

// 

status scIMPL_EXPORT SCSEL_Move( scSelection*, 

eSelectMove ) ; 

53 _ _ = / 

This alters the selection point according to the enum eSelectMove found in 
sctypes. h 

l^atus scIMPLJiXPORT SCSELJExtend ( scSelection*, eSelectMove ); 

H 

/£ffc,o BBBBBBBBBBBBBaBBBasBBaasBBBBBBBBBBBBBBBBBBBsaBaBBBaBBBaBaaaaaaaaBaaa a*/ 

select the nth pagraph of a stream - if you go off the end 
2/ status returns noAction 

<d l 1 [ ] 

status scIMPL_EXPORT SCSTRJfcJthParaSelect ( scStream* streamID, 

VJ long nthPara, 

ft£ scSelection* select ); 

b 



/ * BBBBBaBBBaBBSBBBBaaaaBBBSSBBSBBBBBaBBBBBBBBBBaBBBBBaBBaaaBaaaaaaaaaaB ea»/ 

// @func Highlights the current selection, using the function pointer passed 
// in, the coordinates that will be contained in the call back are in 
// object coordinates and MUST be transformed to device coordinates. 

// 

status scIMPL_EXPORT SCSEL_Hilite ( 

scSelection* sel, // @parm <c scSelection> 

HiliteFuncPtr appDrawRect ); // @parm <t HiliteFuncPtr> 



/»BBBBBBSBBBBBBBBBBBaaaa EDITING MESSAGES » « B B B B B B B B a B S B a B B B B B B B » / 



// @func Inserts keystrokes into the given stream. Place one or more keystrokes 
// into the array. NULL values in the key record array will simply be ignored. 
// scReyRecord* points to an array of keystrokes; numKeys is the number 
//of elements in the array. 

// Stores information for undo in the key records. Sample code will illustrate 
// how to take the inverse values in scReyRecord and use them to undo the 
// insertion of keystrokes. 
// 

status scIMPL_EXPORT SCSEL_InsertKeyRecords( 

scSelection* sel, // @parm <c scSelection> 

short numRecs, // @parm Number of key recs 
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• // to follow^B 
cord* keyRecs, // @parm <c scray 



scK^piecord* keyRecs, // @parm <c scKeyRecord> 
scRedispList* rlnfo ); // @parm <c scRedispList> 

// Redisplay info, arg may be zero 



// @func For immediate redisplay of text that has been altered in editing. 

// It redisplays only those lines which the cursor has been on. 

// Typing a carriage return should force two lines to be redisplayed 

// immediately; likewise for a backspace at the beginning of a line. 

// Normally only one line needs to be redisplayed. 

// IF THE OPERATION CROSSES COLUMNS , ONLY THE COLUMN 

// IN WHICH THE CURSOR ENDS UP IS UPDATED. 

// 

status scIMPL_EXPORT SCCOLJJpdateLine ( 

scColumn* col, // @parm <c scSelection> 

scImmediateRedispSt immred, // @parm <c scImmediateRedisp> 
APPDrwCtx drwctx ); // @parm <t APPDrwCtx> 



// @func Applies a <t TypeSpeO to a <c scSelection> . The TypeSpec replaces 
// all specs contained in the selection. 

// 



status scIMPL EXPORT 



SCSELJSetTextStyle ( 

scSelection* sel, 
TypeSpec ts, 
scRedispList* rlnfo ), 



•a a 



// @parm <c scSelection> 

// @parm <t TypeSpeO 

// @parm <c scRedispList> 

// Redisplay info, arg may be zero 



Ad Applies a character transformation (to all caps, for example) 
to the selection. 

aA 

>>*[][] 

status scIMPL_EXPORT SCSELJTextTrans ( scSelection*, 
P eChTranType, 
l"\ int, 
/: scRedispList* ); 



S3 

JiU=======-== TEXT LEVEL CUT, COPY, PASTE & CLEAR 

// These routines cut and paste paragraphs and text characters. 

// All relevant paragraph attributes and character attributes are maintained. 

// The scrap is maintained in internal Toolbox formats. 

// 



// @func Cuts a selection of text, returning it in the scScrapPtr. 



// 

status scIMPL EXPORT 



SCSEL_CutText ( 
scSelection* 
scScrapPtr& 
scRedispList* 



sel, // ©parm <c scSelection> 

scrapPtr, // @parm <c scScrapPtr> 
rlnfo ) ; // @parm <c scRedispList> 

// Redisplay info, arg may be zero 



// @func Deletes a selection of text. 

// 

status scIMPL_EXPORT SCSEL_ClearText ( 

scSelection* sel, // @parm <c scSelection> 

scRedispList* rlnfo ) ; // @parm <c scRedispList> 

// Redisplay info, arg may be zero 
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// @func Copies a selection of text, returning the copy in the scScrapPtr. 

// <a name»"SCSEL_CopyText M >-</a> 

status scIMPL_EXPORT SCSEL_CopyText ( 

scSelection* sel, // @parm <c scSelection> 

scScrapPtr& scrap ) ; // @parm <c scScrapPtr> 



// @func Pastes a selection of text contained in scScrapPtr into a stream 

// at the insertion point marked by scSelection. If scSelection is 

// a selection of one or more characters, the selected characters 

// are deleted from the stream before the scScrapPtr text is pasted in. 

// This operation copies the text as it pastes it. Therefore, 

// multiple pastes can be made with the same scScrapPtr 

// without making any explicit copies. 

// @xref <f SCSEL_CutText>, <f SCSEL_CopyText> 

status scIMPL_EXPORT SCSEL_PasteText ( 

scSelection* sel , // @parm <c scSelection> 
scScrapPtr scrap, // @parm <c scScrapPtr > 

TypeSpec ts, // @parm If NULL uses prev spec. 

scRedispList* rlnfo ) ;// @parm <c scRedispList> 

// Redisplay info, arg may be zero. 



/* aannBDODBnecaaeosnaononsoDDDCinoaniiisostioaaBncE 

4?% @func The following is a useful call to get 
SZ the first typespec in the selection 

-M 

^flatus scIMPL_EXPOFT SCSEL_GetStream( 

const scSelection* 
scStream*& 
TypeSpecSc 



a stream from a selection and the 



i y 



■ -a 

C3 

4A see doc in html file 

§€ktus SCSEL_InsertField ( scSelection*, 
ly const clFieldSc, 

LzSi TypeSpecSc, 

scRedispList* damage ); 

c5 

// The following are for spell checkings */ 



sel, 
str, 
ts ); 



// @parm <c scSelection> 

// @parra <c scStream> 

// @parm The first <t TypeSpec > , 



// actual definition in SCTYPES.H 
// Substitution function 

inWord and outWord are null terminated strings 
outWord is allocated and freed by application 



// 
// 
// 

// the substitution should function returns 

// 
// 
// 
// 
// 
// 
// 



successful 
noAction 
other error 



if the word has been changed 
if no change is necessary 
to be propogated back to app 



typedef status (*SubstituteFunc) ( UCS2**outWord, UCS2*inWord ); 



/#OQaoiii3BQaa«BDaDomaDooaoeaDnnnDODBODnnaDaaanoannig#/ 

// DEPRECATED 

// check spelling in selection, 

// this is best used in conjunction with SCMoveSelect 

// 

//[][] 

status scIMPL_EXPORT SCSEL_Iter( scSelection* 



selectID , 
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SubstituteFunc 
scRedispList* 



func, 
damage ) ; 



/ * aaa 



> m boo*/ 



// DEPRECATED 

// check spelling in the stream 

// 

//MM 

status scIMPL_EXPORT SCSTR_Iter( scStream* streamID, 

SubstituteFunc func, 
scRedispList* damage ) ; 



// DEPRECATED 
//[][] 

status scIMPL EXPORT 



aaasttnnc 



leaaooaoant/ 



SCSTR_Search ( scStream* streamID, 

const UCS2* findString, 
SubstituteFunc func, 
scRedispList* damage ) ; 

// @func Search for the string from the current selection. When 

// the string is found move the selection to it. 

status scIMPLJEXPOKT SCSEL_FindString ( 

scSelection* select* // @parm <c scSelection> 

const UCS2* findString ); // @parm <t UCS2> string to find. 

a ta BastaoannenaaaBneeasttoaeeBsciBBBeetiseDBaasBiaeBs as*/ 

✓f^this returns whether or not the column potentially has text, if 
//^because of reformatting nothing lands in here we will still return 
true successful — has text 

AM 

ru 

>?A ] [ ] 

sliAtus scIMPL_EXPORT 

/jfcp aaBBaoasanDaaaaoaBaaoaeaaaaaaaaaaaaaaaBasaaaaaall/ 

A 44 at start up this will have the first token selected 



SCCOL.HasText ( scColumn* col ID ); 



qpjtss stTokenlter { 

pujlic: 

virtual void 
virtual void 



-5 ™ 



release () = 0; 
reset () * 0; 



// sets a selection of the iterators para 
paraselection( scSelection* ) « 0; 



virtual int 



// sets selection for the token iterator 
virtual int setselection( scSelection* ) - 0; 

// retrieves the next token, 
// the string should have its size set in the 
// len field, if the token will not fit 
// in the string, a negative number is returned 
// that specifies the size, try again with a sufficient 
// size string 
virtual int gettoken ( stUnivString& ) » 0; 

// replaces the current token 
virtual int replacetoken( stUnivStringSc ) « 0; 



virtual int 



// moves to next token 
next() = 0; 



class stContUnitlter { 



public: 

virtual void 

virtual void 

virtual int 

virtual int 



release() - 0; 
reset () ■* 0; 

gettokeniter( stTokenIter*& ) 
next() « 0; 
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virtual void range ( scSi^^M.ocation&, scStreamLocationS. ) 
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status SCSTR^GetContUnitIter( scStream*, stContUnitIter*& ); 
status SCSEL_GetContUnitIter( scSelection*, stContUnitIter*& ); 



/* aDtnaosesoncsasBat 

class stFindlter { 

public: 

virtual void 

virtual void 

virtual int 

virtual int 

virtual int 

virtual void 



release () = 0; 
reset () = 0; 

setselection( scSelection* ) * 0; 
next() «0; 

replacetoken( stUnivString& ) «= 0; 

range ( scStreamLocation&, scStreamLocation& ) 



0; 



status SCSTRj3etFindIter( scStream* , 

stUnivString&, 
const SearchStateS, 
stFindIter*& ) ; 

status SCSEL_GetFindIter( scSelection*. 

stUnivStringS., 
const SearchState&, 
stFindIter*& ) ; 



#jl£def scRubiSupprt 
clgss scAnnotation; 

%J 

/fjtake the select id and find the nth annotation within the selection, 
/<""if no annotation is found - noAction is returned 
'dl 1 [ 1 

status scIMPL__EXP0RT SCSEL_GetAnnotation ( scSelection*, 
s int nth, 

?=t scAnnotation& ); 

/>=4apply the annotation to the indicated selectid id, if there is an 
//Yiexisting annotation it will be deleted 
'ill J [ ] 

status scIMPL_EXPORT SCSEL_ApplyAnnotation ( scSelection*, 
^ const scAnnotation&, 

fj scRedispList* ); 

#endif 

// SBDBoaantJBsaBomnnnooaBiinBiiBaennnBacnBBnnffloOBOacnaooBaBBaDcaaaaaannBD 

void scIMPL_EXPORT SCC0L_InvertExtents ( scColumn*, 

HiliteFuncPtr, 
APPDrwCtx ); 

#if SCDEBUG > 1 

// these return the size of the memory image of these structures 
long scIMPL_EXPORT SCCOL JebugSize ( scColumn* ); 

long scIMPLJXPORT SCSTR_DebugSize ( scStream* ); 



void scIMPL_EXP0RT SCCOL_InvertRegion ( scColumn*, 

HiliteFuncPtr, 
APPDrwCtx ); 



void scIMPL_EXP0RT SCDebugColumnList ( void ); 

void scIMPL_EXPOKT SCDebugColumn ( scColumn*, 

int contentLevel ); 
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void scIMPL_EXPORT SCDebu^^^Specs ( scSelection* ); 

void scIMPL_EXPORT SCSTR_Debug( scStream* ); 

#endif /* DEBUG »/ 



#endif /* _H_SCAPPINT */ 
//</pre></htnil> 



in 

ij 

P 

a 

C3 
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File: SCAPPTEX.H 



SHeader: /Pro jects/Toolbox/ct /SCAPPTEX.H 2 5/30/97 8:45a Wraanis $ 

Contains: The class for passing content plus typo state 
back between client and toolbox. 

Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



@doc 

«««*«**««««*«•««*«••«*•«*«««*«**«**««**««**««*•««•*««******«•***«****«••««**/ 



#ifndef _H_SCAPPTEX 
#define H SCAPPTEX 



£jfdef SCMACINTOSH 
ftfragma once 
©ndif 

i&include "sctypes.h" 

ry 

fcjass stText Import Export { 
Lie- 
static stText ImportExport& MakeTextlmportExport ( int encoding 



C3 

s 

C3 



1 ): 



virtual void release () =0; 



// writing 
virtual void 
virtual void 
virtual void 
virtual void 
virtual void 

// reading 
virtual int 
virtual int 
virtual void 
virtual void 



0; 



0; 



StartPara( TypeSpec& ) = 
SetParaSpec( TypeSpecSc ) 
PutString( const uchar*, int, TypeSpecS ) 
PutString( stUnivString&, TypeSpecSc ) « Oj 
PutChar( UCS2, TypeSpecS. ) « 0; 



NextPara( TypeSpec& ) « 0; 
GetChar( UCS2&, TypeSpec& ) 
reset () - 0; 
resetpara() » 0; 



0; 



#endif /* Jt_SCAPPTEX */ 
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File: SCAPPTEX.C 



$Header: /Projects/Toolbox/ct/SCAPPTEX.CPP 2 5/30/97 8:45a Wmanis $ 
Contains : 

This module takes a handle to APPTextRun structure and manages the 
memory (specs & chars) associated with it. Locking and unlocking. It 
also maintains some internal structures that used for reading the text 
between the lock and unlock calls. Refer to the 
APPTextRun in SCTextExch . h . 

Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scapptex .h" 
#pnclude "scparagr.h" 

35. 

/=itJ iSBBaBBBdnaaiiDseaaacaeaBBSBaaaBitiaiiaaeiaDotiasiiaaaBiiBeaDaBomDBeBSBaaanaoD * / 

cn 

s^Para : : stPara ( ) : 
' if paraspec_( 0 ) 
{S3 

l-\ reset (); 

/f§^ BOBOSBBBaBBBBBBoaBeBaBeaseBaDtsoeaaaooDoaaBaBDOscBeaBBBaBBBBBBasaoaBB * / 

s 

stijara : : stPara ( TypeSpec& pspec ) : 
paraspec_ ( pspec ) 

{M 

Vj if ( pspec. ptr() ) 

L£ specs_.AppendSpec( pspec, 0 ); 

U reset (); 

stPara: : "stPara () 

{ 

} 

/• 8BBBeBBBaaaaBBS8BsaBBaaaBa&BaB»ssaBOB B BBS3aaBBSseassaDoaaBaasaaBaaaB » / 

void stPara :: append ( TypeSpecfie ts ) 
{ 

if ( ts !» specs_.SpecAtOf fset ( ch_.NumI terns ( ) ) ) 
specs_.AppendSpec( ts, ch_.NumItems ( ) ); 

} 

/* BBBBBasaaBBBBaaaBaBaBBSBBBBBaBBBBBBBBBBBBBBBBBBSBaaBBaBBBBSaseaBaBBB * / 

void stPara :: append ( const uchar* ch, int len ) 

{ 

for ( int i = 0; i < len; i++ ) 
ch_. Append ( (UCS2)ch[i] ); 

} 
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void st Para :: append ( stUnivStri! 

for ( unsigned i = 0; i < ustr.len; i++ ) 
ch_. Append ( (UCS2)ustr .ptr [i ] ); 

} 



*/ 



i~ : 



void stPara: : append ( UCS2 cb ) 
{ 

ch_ .Append ( ch ) ; 

} 

/ * BBaaBaBaaaaBaBBeBaaBaaBaaBBaBaBBBBaaaaBaBBBBaBBSBBaaaoaaaaaasaaBBaBB • / 

stPara& stPara : : operator- ( const stPara& p ) 
{ 

ch_ . RemoveAl 1 ( ) ; 

for ( int i « 0; i < p ,ch_.NumI terns () ; i++ ) 
ch_. Append ( p.ch_[i] ); 

choffset_ » p.choffset_; 

specs. . RemoveAl 1 ( ) ; 

for ( i - 0; i < p.specs_.NumItems() ; i++ ) 
specs_. Append ( p.specs_[i] ); 

paraspec_ « p.paraspec_; 
return *this; 

m 

b. J 
iff 

liht stPara:: get ( UCS2& ch, TypeSpec& spec ) 

c 5 if ( choffset„ < ch_.NumItems( ) ) { 
^ spec » specs_.SpecAtOf fset ( choffset_ ); 

•4 ch - ch_[chof fset_++] ; 

fj return choffset_; 

r > 

return 0; 

-/fk BBBBBBBBBaBBBBBBBaBGSBaaBBtSBBBSnSBBBBBraSSBaeiBCSOBSaCSeitSBBBBBBBBBaBBBSSS */ 

bfat stPara: :validate() const 

CO 

scAssertf paraspec_.pt r( ) ); 
specs_.DebugRun( "stPara :: validate" ); 
return 1; 

} 



void stPara: :setparaspec( TypeSpec& ts ) 
{ 

paraspec__ « ts; 

scAssert( ch_.NumItems ( ) — 0 ) ; 
specs_.AppendSpec ( ts, 0 ); 

} 

/* aaaaBaBaaaaosaaaraaoaaaaasooaoBBaasaaaBBaaaaBaaBaBaaaBaaBaaaaaaaasisaa * / 

int stPara :: complete ( ) 
{ 

if ( specs_.NumItems() •=«= 1 ) 

specs_.AppendSpec( paraspec_„ 0 ); 

return validate(); 

} 



/ * aooaoaaaooooaesaEsaaoossoomoaeaxjamoaaaoo 



a a bb a a s « a a a a a a a */ 
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.^^^rtExport 



class stTIEImp : public stText 1 
public: 

stTIEImpO ; 

'"stTIEImpO; 

void release O; 

// writing 

virtual void StartPara( TypeSpecSc ); 

virtual void SetParaSpec( TypeSpecSc ); 

virtual void PutString( const uchar*, int, TypeSpec& ); 

virtual void PutString( stUnivStringSc, TypeSpecSc ); 

virtual void PutChar( UCS2, TypeSpec& ); 

// reading 

virtual int NextPara( TypeSpecSc ); 

virtual int GetChar( UCS2&, TypeSpecSc ); 

virtual void reset (); 

virtual void resetpara(); 

protected : 

stPara& currentPara ( ) ; 

int32 pindex_; 
scSizeableArrayD<stPara> paras_; 

}; 

C3 

gftTextlmportExportSt stText Import Export : :MakeTextImportExport ( int encoding ) 



stTIEImp* stimp = new stTIEImp (); 
fU return *stimp; 

fJTI E Imp :: stTIEImpO 
_ reset ( ) ; 

v 

BBBBSBBBBBBBBBBBaBBBBBBBSSBBBBBBaBBBaaBBSBaBBaBBaBBaBBBBBBBBBBBaBBBB * / 

VJ 

fetTIEImp: :~stTIEImp() 

13 
th 

/* BaBBaoBaaaBaBBaBBBnanannossaaRBBBBBaBBOBaBBaoBancBBBBDoaonoaaBOODana * / 

void stTIEImp :: release ( ) 
{ 

delete this; 

/ » sBDBBaBSBBaBaBsseBaBasBaaasaeeaaaBBBaBBaaaaaaBaonBBBasBBaBBBBaBBBBoa * / 

stParaS stTIEImp: : currentPara () 
{ 

return paras_[pindex_J ; 

} 

/* oBaaoBOBBaBoaBOBBBaooaaonsaoaanaaaaBoaoscaaaaBeDBBBaoooooeaasaaBOBaa * / 

// importing 

void stTIEImp: :StartPara( TypeSpecSc ts ) 
{ 

if ( paras_.NumI terns () > 0 ) 

paras_[pindex_ ] . complete () ; 

stPara newPara ( ts ) ; 
paras_. Append ( newPara ); 
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pindex_ - paras_. Numlt ems (^^1; 



void stTIEImp: :SetParaSpec( TypeSpecSc ts ) 
{ 

stPara& p « currentPara ( ) ; 
p.setparaspec( ts ); 

} 

void stTIEImp: :PutString( const uchar* str, int len, TypeSpec& ts ) 
{ 

stPara& p » currentPara ( ) ; 

p. append ( ts ); 

p. append ( str, len ); 

} 



void stTIEImp: :PutString( stUnivStringSc ustr, TypeSpecSc ts ) 
{ 

stPara& p = currentPara ( ) ; 
p. append ( ts ); 
p. append ( ustr ); 

} 



y$id stTIEImp: :PutChar( UCS2 ch, TypeSpecSc ts ) 

t y stPara& p - currentPara ( ) ; 
t^j p. append ( ts ); 
p. append ( ch ); 



// reading 

lat stTIEImp: : Next Para ( TypeSpecSc ts ) 
pindex_++; 

.7 if ( pindex_ < paras_. Numlt ems ( ) ) { 
[~ ts « paras_[pindex_] ,paraspec() ; 

£j paras_[pindex_] .validate (); 

return pindex_; 

1* } 

return -1; 

} 



int stTIEImp: :GetChar( UCS2& ch, TypeSpecSc ts ) 
{ 

stPara& p - currentPara ( ) ; 
return p.get( ch, ts ); 

} 



void stTIEImp: : reset () 
{ 

pindex_ - -1; 

} 



»/ 



void stTIEImp: :resetpara() 
{ 

stPara& p « currentPara () ; 
p. reset () ; 



*/ 



File : Work\CrtPrt\Stonehnd\Scapptex . cpp 
} 

/* asnosooQBsnDBBQQooamasaDDeoaosBQasaoetiBffla 
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ry 
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File: SCAPPTYP.H 



$Header: /Projects/Too lbox/ct/SCAPPTYP .H 2 5/30/97 8:45a Wmanis $ 
Contains: Defintion by client of data types. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbon software is the proprietary 
and confidential property of Stonehand Inc. 



Use this to define application types for proper type checking, 
these are types that are by and large passede thru the Compost ion 
Toolboxt and thus type information is superfulous 



@doc 

*««••••••*«•**»•»«*•••••*•••••«**•••**•••»•*««*• 



Igfndef _H_SCAPPTYP 
Refine Ji_SCAPPTYP 

frlfdef .WINDOWS 

fy #include <windows.h> 

[: j 

y/W ODaassnRaonaoonnanoaaaBeaBadeaaeneosscanaBaetaBtiBBDBaaBanaaiiaDsaatieDa */ 
saaassoaDSSBeasaaaBBttasBSSBSBSBsaasBBoaaaaBBSSBsssBsascnaasnBcaaesss • / 

class DemoView; 
1,1 ass CAGText; 
islass ApplIOContext; 

en urn { 

Japanese » 0, 
M English, 
jp Spanish, 
f=; Italian, 

Portuguese, 

French, 

German , 

Dutch, 

Bokmal , 

Nynorsk , 

Swedish, 

Danish, 

Icelandic, 

Greek, 

Turkish, 

Russian, 

Croatian, 

Finnish, 

Miscellaneous, 

MAX — LANGUAGES 

}; 

// @type APPLanguage | An abstract type/magic cookie that the Composition Toolbox 

// may use to specify hyphenation language. 

typedef short APPLanguage; 



// @type APPColor | An abstract type/magic cookie that the Composition Toolbox 
// may use to specify color. 
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// 

typedef COLORREF APPColor; /* color reference */ 

// @type APPDrwCtx | An abstract type/magic cookie that the Composition Toolbox 

// may use to pass thru drawing contexts. 

// 

typedef CAGText* APPDrwCtx; // drawing context 

// @type APPFont | An abstract type/magic cookie that the Composition Toolbox 

// may use to retrieve and specify font information. 

// 

typedef const scChar* APPFont; 

// @type APPRender | An abstract type/magic cookie that the Composition Toolbox 
// may use to specify font information plus additional drawing attributes 
// that the client may wish to use (e.g. drop shadow ). Typically used when 
// the traditional values returned by the font sub-system in Quickdraw or 
// GDI would not suffice. 
// @xref <t APPFont > 

typedef struct RenderDef* APPRender; 

// @type TypeSpec | An abstract type/magic cookie that the Composition Toolbox 
// may use to retrieve typographic state information. 

// 

#include "refcnt.h" 

class st Spec : public Re f Count 

{ 

}; 

typedef class RefCountPtr<stSpec> TypeSpec; 
lypedef class RefCountPtr<stSpec> scFontRender; 

t3 

©type APPColumn | An abstract type/magic cookie to be filled in 
Ys appropriately by the client. 

typedef CAGText* APPColumn; 

Yy @type APPCtxPtr | An abstract type/magic cookie for use in file i/o. 
>i @xref <t IOFuncPtr> 

JJpedef CAGText* APPCtxPtr; 

iiBooaiEQsaaDoacoeasaasBenaBBBaasOBBniBQDBBDBitEDeaaoaoaaoaseeBdaBOBaeBB * / 

S* "1 

#j§ndif 
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/•«••••«••••»•»•»*•••*•»••« 

File: SCARRAY.CPP 



SHeader: /b tool box/1 ib/SC ARRAY. CPP 3 3/31/96 3:48p Will $ 
Contains: Templates for Vector 

Written by: Man is 

Copyright (c) 1989-95 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

•*•*»•**»•••»*•»•**»•••«•••*••«•••*••»••»*••***•*••**••••*•••*••*•»»*«••/ 



#ifdef DEFINEJTEMPLATES 

#if defined ( _MWERRS_ ) 
#include <stdlib.h> 
#else 

f Include <malloc.h> 
fc endif 

nclude <string.h> 
ffcjnclude < assert. h> 

inline 

w>id *operator new(size_t, void *p) 

f~ return p; 
T 



#ifndef scAssert 

- ~. #define st Assert 

Welse 

1*2, #define st Assert 
arttendif 

define stMAX( a, b ) 
^define stMIN( a, b ) 



assert 
scAssert 



((a)>(b)?(a):(b)) 
<(a)<(b)?(a):(b)) 



template <class T> 

scStaticArray<T> : :scStaticArray ( int num, T* mem ) : 
scArray<T>( num r mem ? mem : new T[num] ) 

{ 
} 

template <class T> 
scStaticArray<T> : :~scStaticArray ( ) 
{ 

delete [] items_; 

} 

#define klnitBlockSize 4 
template <class T> 

scSizeableArray<T> : :scSizeableArray() : 
elemSlots_( 4 )„ 
blockSize_( klnitBlockSize ), 

scArray<T>( 0, (T*)malloc( klnitBlockSize • sizeof( T ) ) ) 

{ 

ClearMem( 0 ); 
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template <class T> 

scSizeableArray<T> : :~scSizeableArray ( ) 
{ 

if ( items_ ) 

free( items_ ); 

} 

template <class T> 

void scSizeableArray<T> : .-Remove ( int index ) 
{ 

stAssert( index < numltems_ ); 

raemmove( items_ + index, items_ + index + 1, 

( numltems„ - index - 1 ) * sizeof( T ) ); 

numltems_ -» 1; 

ShrinkSlots() ; 

} 

template <class T> 

void scSizeableArray<T> : :RemoveAll () 
{ 

numltems_ » 0; 
ShrinkSlots() ; 

} 

|emplate <class T> 

void scSizeableArray<T> : :SetNumSlots( int numSlots ) 

ill int numBlocks «• stMAX( 1, numSlots / blockSize_ + ( numSlots % blockSize_ ? 1 : 0 ) ); 
fi! SizeSlots( numBlocks « blockSize_ ); 

ci 

template <class T> 

itft scSizeableArray<T> : .'Append ( const T& elem ) 

^ SetNumSlots( numltems_ + 1 ); 
a items_[numltems_j « elem; 
return numltems_++; 

9 _ I 

template <class T> 

f& scSizeableArray<T> : :Grow() 

jh 

:!: SetNumSlots( numltems_ + 1 ); 

I J return items_[numltems_++] ; 
} 



template <class T> 

void scSizeableArray<T> : .-Insert ( int index, const T& elem ) 
{ 

SetNumSlots( numltems_ + 1 ); 

if ( numltems_ - index > 0 ) 

memmove( items_ + index + 1, items_ + index, 
( numltems_ - index ) * sizeof(T) ); 

items_[ index] = elem; 
numltems_++; 

} 

template <class T> 

void scSizeableArray<T> : :Set ( int index, const T& elem ) 
{ 

if ( index >= numltems_ ) { 
SetNumSlots( index + 1 ); 
numltems_ » index + 1; 

} 
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items_[ index] » elem; 

template <class T> 

void scSizeableArray<T> : :SizeSlots( unsigned numltems ) 
{ 

// do not shrink if we are retaining memory or if no resizing is 
// necessary 
// 

if ( elemSlots_ « numltems | | ( numltems < elemSlots_ && retainMem_ ) ) 
return ; 

stAssert( numltems >= blockSize_ ); 

long oldSize » elemSlots„; 

if ( items_ 0 ) 
throw ( - 1 ) ; 

items_ 3 (T«)realloc( items_„ sizeof(T) * numltems ); 
elemSlots_ 0 numltems; 
ClearMera( oldSize ); 



template <class T> 

void scSizeableArray<T> : :GrowSlots( int newltems ) 
{ 

fi int oldSize - elemSlots ; 



if ( items_ 0 ) 
throw( -1 ); 



items_ » (T*)realloc( items., sizeof(T) * ( elemSlots_ + newltems ) ); 
elemSlots_ +- newltems; 
ly ClearMem( oldSize ); 



template <class T> 

ySid scSizeableArray<T> : :ClearMem( unsigned oldsize ) 

u 

ji3 // either we do need to clear memory or we have shrunk it 

^ if ( oldsize >- elemSlots. ) 
jiA return; 



13 

o 
} 



for ( unsigned index = oldsize; index < elemSlots_; index++ ) 
memset( iteras_ + index, 0, sizeof(T) ); 



#if 0 

template <class T> 

void scSizeableArray<T> : :exch ( const scSizeableArray<T>& arr ) 
{ 

scArray <T> : : operator" ( arr ) ; 

scSizeableArray<T>& array - (scSizeableArray<T>&)arr; 

unsigned tmp a elemSlots_; 
elemSlots_ « array .elemSlots_; 
array. elemSlots_ - tmp; 

tmp - blockSize_; 

blockSize_ » array .blockSize_; 

array. blockSize_ » blockSize_; 

tmp « retainMem_; 

retainMem__ « array . re tainMem_; 

array . reta i nMem_ ■ retainMem_; 

} 

#endif 
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temp late <c lass T, class CT> 
int scBinarySortedArray<T,CT> : : 
{ 

int low - 0; 

int high 13 numltems_ - 1; 

int insertlndex » 0; 



const T& val, int* insert I ndexP^^^onst 



while ( low <«= high ) { 

int index » (low + high) / 2; 

int found » CT::Compare( val, items_[index] ); 

if ( found 0 ) 

return index; 
else if ( found < 0 ) 

high ■ index - 1, insertlndex * index; 

else 

low « index + 1, insertlndex » index + 1; 

} 

insertlndexP ? "insertlndexP - insertlndex : 0; 
return -1; 

} 



teraplate<class T, class CT> 

int scBinarySortedArray<T,CT> : :Findl( const T& val, const CT& ct, int* insertlndexP ) const 
{ 

int low «= 0; 

int high - numltems_ - 1; 

int insertlndex =0; 



jp while ( low <« high } { 

^ int index » (low + high) / 2; 

it int found « ct. Compare 1( val, items_[ index] ); 

£H if ( found « 0 ) 

r LI return index; 

else if ( found < 0 ) 

^ high - index - 1, insertlndex - index; 

|y else 

"'^ low « index + 1, insertlndex = index + 1; 



insertlndexP ? "insertlndexP » insertlndex : 0; 
f 3 return -1; 

&emplate< class T, class CT> 

iAt scBinarySortedArray<T,CT> : rSortlnsert ( const T& item ) 

~Z int index; 
^ if ( Find( item, &index ) < 0 ) 
Insert ( index, item ); 
return index; 

} 



//// 



template <class T> 

scStaticArrayD<T> : :scStaticArrayD ( int num, T* mem ) : 
scArray<T> ( num, mem ? mem : new T[num] ) 

{ 
} 

template <class T> 

scStaticArrayD<T> : :~scStaticArrayD ( ) 
{ 

for ( int i » 0; i < numltems_; i++) { 
#ifdef _WATC0MC_ 

items_[i] -~T() ; 
#elif defined (_MAC) 

T& tp - i teras_ [ i ] ; 

tp.~T(); 

#else 

items_[i] .T: :~T() ; 

#endif 



File: Work\CrtPrt\Stonehnd\Scarray . cpp Pg: 5 

} 

delete [] items.; 

} 

#define klnitBlockSize 4 
template <class T> 

scSizeableArrayD<T> : : scSizeableArrayD ( ) : 
:elemSlots_( 4 )„ 
blockSize_( klnitBlockSize ), 

scArray<T>( 0, (T«)malloc( klnitBlockSize » sizeof( T ) ) ) 

{ 

ClearMem( 0 ); 

} 

template <class T> 

scSizeableArrayD<T> : :~scSizeableArrayD() 
{ 

for ( unsigned i « 0; i < elemSlots_; i++) 
deleteltem( i ); 

if ( items. ) 

free( items. ); 

} 

template <class T> 

void scSizeableArrayD<T> : : construct I tern ( int index ) 
{ 

(void) new ( items. + index ) T; 

13 

template <class T> 

void scSizeableArrayD<T> : :deleteltem( int index ) 

|*fdef _WATC0MC_ 
"* *™ items. [index] -~T() ; 
Wlif defined (.MAC) 
^ T& tp « items. [ index ] ; 
,3 tp.~T(); 
frelse 

s_ items.findex] .T: .'TO ; 
#|ndif 

template <class T> 

|reid scSizeableArrayD<T> :: Remove ( int index ) 

ff s t Assert ( index < numl terns. ); 
U deleteltem( index ); 

if ( numl terns. - index - 1 ) 

memmove( items. + index, items. + index + 1, 

( numl terns. - index - 1 ) * sizeof( T ) ); 

numl terns. ~= 1; 
ShrinkSlots() ; 

} 

template <class T> 

void scSizeableArrayD<T> : :RemoveAll () 
{ 

for ( int i - 0; i < numltems.; i++) 
deleteltem( i ); 

numltems. « 0; 
ShrinkSlots() ; 

} 

template <class T> 

void scSizeableArrayD<T> : :SetNumSlots( int numSlots ) 
{ 

int numBlocks = stMAX( 1, numSlots / blockSize. + ( numSlots % blockSize. ? 1 : 0 ) ); 
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SizeSlots( numB locks * bloc^^Be ); 

} 

template <class T> 

int scSizeableArrayD<T> : ."Append ( const T& elem ) 
{ 

SetNumSlots ( numltems_ + 1 ); 
items_[numltems_] » elem; 
return numltems_++; 

} 



template <class T> 

T& scSizeableArrayD<T> : :Grow() 

{ 

SetNumSlots( numltems_ + 1 ); 
return items [numltems_++] ; 

} 



template <class T> 

void scSizeableArrayD<T> :: Insert ( int index, const T& elem ) 
{ 

SetNumSlots( numltems_ + 1 ); 

if ( numltems_ - index > 0 ) 

memmove( items_ + index + 1, items_ + index, 
( numltems_ - index ) * sizeof(T) ); 

£i constructItem( index ); 
~Z items_[ index] » elem; 
numltems_++; 

r y 

iejnplate <class T> 
did scSizeableArrayD<T> : :Set ( int index, const T& elem ) 

if ( index >» numltems_ ) { 
SetNumSlots( index + 1 ); 
wsS numltems_ « index + 1; 

s } 

C3 

vj items_[ index] « elem; 



template <class T> 

T&iid scSizeableArrayD<T> : :SizeSlots( unsigned numltems ) 

p 

// do not shrink if we are retaining memory or if no resizing is 
// necessary 

// 

if ( elemSlots„ aa numltems | | ( numltems < elemSlots_ && retainMem_ ) ) 
return; 

stAssert( numltems >= blockSize_ ); 

long oldSize « elemSlots_; 

if ( items_ == 0 ) 
throw ( - 1 ) ; 

items_ = (T»)realloc( items_, sizeof(T) * numltems ); 
elemSlots_ = numltems; 
ClearMem( oldSize ); 

} 



template <class T> 

void scSizeableArrayD<T> :: GrowS lots ( int newltems ) 
{ 

int oldSize - elemSlots_; 
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if ( items_ « 0 ) 
throw ( - 1 ) ; 

items_ - (T*)realloc( items_„ sizeof(T) * ( elemSlots_ + newltems ) ); 
elemSlots_ +- newltems; 
ClearMem( oldSize ); 

} 



template <class T> 
void scSizeableArrayD<T> : :ClearMem( unsigned oldsize ) 
{ 

// either we do need to clear memory or we have shrunk it 
if ( oldsize >= elemSlots_ ) 
return; 

for ( unsigned index ■ oldsize; index < elemSlots_; index++ ) 
constructItem( index ); 

} 

#if 0 

template <class T> 

void scSizeableArrayD<T> : :exch ( const scSizeableArrayD<T>& arr ) 
{ 

scArray<T> :: operator** ( arr ); 

scSizeableArrayD<T>& array - (scSizeableArrayD<T>&)arr; 

unsigned tmp « elemSlots_; 
elemSlots_ « array .el emSlots_; 

'■Zj array .elemSlots_ » tmp; 

\& 

£ n tmp * blockSize_; 

ry blockSize_ = array ,blockSize_; 

*Z array .blockSize_ ■ blockSize_; 

tmp « retainMem_; 

retainMem_ - array .retainMera_; 

array, re tainMem_ - retainMem_; 

#endif 

a 

template<class T, class CT> 

izft scBinarySortedArrayD<T,CT> : :Find ( const T& val, int* insertlndexP ) const 

|y 

$a int low - 0; 

f*j int high - numltems_ - 1; 

!!: int insertlndex = 0; 

U 

while ( low O high ) { 

int index => (low + high) / 2; 
int found ■ CT::Compare( val, items_[index] ); 
if ( found « 0 ) 
return index; 
else if ( found < 0 ) 

high « index - 1, insertlndex » index; 

else 

low « index + 1, insertlndex - index + 1; 

} 

insertlndexP ? *insertIndexP - insertlndex : 0; 
return -1; 

} 

template<class T„ class CT> 

int scBinarySortedArrayD<T,CT> : :Findl( const T& val, const CT& ct, int* insertlndexP ) const 
{ 

int low «• 0; 

int high - numltems_ - 1; 

int insertlndex » 0; 

while ( low <- high ) { 

int index ■ (low + high) / 2; 
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int found » ct .Compare ^^01 * items. [index] ); 
if ( found « 0 ) 

return index; 
else if ( found < 0 ) 

high « index - 1, insertlndex * index; 

else 

low ■ index + 1, insertlndex - index + 1; 



insertlndexP ? »insertIndexP - insertlndex : 0; 
return -1; 



} 



template<class T, class CT> 

int scBinarySortedArrayD<T„CT> : rSortlnsert ( const T& item ) 
{ 

int index; 

if ( Find( item. &index ) < 0 ) 

Insert ( index, item ); 
return index; 

} 



#endif /« scDEF INEJTEMPLATES »/ 
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File: SCARRAY.H 



$Header: /b tool box/1 ib/SCARRAY.H 3 3/31/96 3:48p Will $ 
Contains: Templates for Vector 
Written by: Man is 

Copyright (c) 1989-95 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H_SCARRAY 
^define _H_SC ARRAY 

#ifdef _DEBUG 

^define if debug ( x ) x 

'Z s #define if debug ( x ) 

£n 

DDoaatsBacaoenoeaDaseociaaDBnnooeaoaaseissoonaasseaooBaoBSDaasODe: 

•feinplate <class T> 
(Ubss scAutoDelete { 
public: 

scAutoDelete ( T* ptr = 0 ) : ptr_( ptr ) {} 
tal "scAutoDelete () { freePtr(); } 

5 

deref() const { return ptr_; } 

tlr* operator->() const { return ptr_; } 

ir& operator* () const { return *ptr_; } 

|y 

l^oid operator^ T* p ) { if ( ptr_ ) freePtr(); ptr_ = p; } 
i=dnt operator** ( const scAutoDelete<T>& p ) 

{ return ptr_ « p.deref(); } 

£3 

private : 

void freePtr() { delete ptr_, ptr_ « 0; } 

T* ptr_; 

}; 

template <class T> 
class scArray { 
public: 

int Numltems( void ) const; 

T& operator[]( int n ); 

const T& operator[]( int n ) const; 

T* ptr( void ); 

const T* ptr( void ) const; 

// void exch( const scArray<T>& ); 
protected : 

scArray ( ) : 

numltems_(0) , 
items_(0){} 
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aum^^« 



scArray ( int nura^T"* mem ) 
numltems_( num ), 
items_( mem ) {} 



int numltems_; 
T* items_; 

#ifndef MWERKS 

// the following are not declared because of the 
// deep vs shallow copy problem 
scArray( const scArray& ); // not declared 

scArray& operator- ( const scArray& ); // not declared 
#endif 



template <class T> 
#ifndef _MWERRS_ 
inline 
#endif 

int scArray<T> : :NumI terns ( ) const 
{ 

return numltems_; 

} 

template <class T> 
f gfndef _MWERKS_ 
inline 
Midif 

"fS scArray<T> :: operator [] ( int n ) 

ru { 

return items_[ n 1; 

} 

i ' ' 

template <class T> 

#|fndef _MtfERKS 

inline 
#endif 

^§nst T& scArray<T> : '.operator [] ( int n ) const 

Ci { 

. ; return items_[ n ]; 

iy } 

©nplate <class T> 
#iifndef _MWERKS_ 
inline 
#endif 

T* scArray <T> : : ptr ( ) 
{ 

return items_; 

} 



template <class T> 

#ifndef _MWERKS 

inline 
#endif 

const T* scArray<T> : :ptr() const 
{ 

return items ; 

} 



#if 0 

template <class T> 
#ifndef _MWERRS_ 
inline 
#endif 

void scArray <T> : : exch ( const scArray <T>& arr ) 
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} 

#endif 



scArray<T> array = (scArray^>St)arr; 

int t « array .num It ems_; 
array .numltems_ = numltems_; 
numlteras_ * array .numltems_; 

T» tmp = array . items.; 
array . i tems_ « i tems_ ; 
items_ ° tmp; 



template <class T> 

class scStaticArray : public scArray<T> { 
public : 

scStaticArray ( int num, T* mem 
"scStaticArray ( ) ; 

}; 

/* BBBSBSBBBaBBBBBBBBBBBBBBBBBsaaBBBBBBBBsaBBBS 



template <class T> 

class scStaticArrayD : public scArray<T> { 
public : 

scStaticArrayD ( int nunu T* mem 
"scStaticArrayD ( ) ; 

Is 

BBBBBBBBBBBBBBSBaBB8BBaBmBBS)fSaBOBe>B8SBC3BBa»a9E 

m 

femplate <class T> 

class scSizeableArray : public scArray<T> { 
l^uilic: 

scSizeableArray ( ) ; 
"scSizeableArray () ; 



t=f void 
2 _ void 
C3 int 

ly 

i& void 

f « void 

%J 

void 
void 



int 



// void 

private : 
void 



void 



Remove ( int ); 
RemoveAll( void ); 
Append ( const T& ) ; 

Grow ( ) ; 

Insert ( int, const T& ); 

Set ( int, const T& ) ; 

SetNumSlots( int numSlots ); 

SetRetainMem( int tf ) 
{ 

retainMem__ - tf ? 1 : 0; 

} 

GetRetainMem( void ) const 
{ 

return retainMem_; 

} 

exch( const scSizeableArray<T>& ) 



MoreSlots( void ) 
{ 

GrowSlots( blockSize_ ); 

} 

ShrinkSlots( void ) 
{ 

SetNumSlots( numltems_ ); 

} 



void 



SizeSlots( unsigned ); 
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void 
void 



unsigned 



GrowSlots( int 
ClearMem( unsigSHT ) ; 



unsigned elemSlots_; 
unsigned blockSize_ : 16; 



retainMem_ : 1; 



// num of elements potentially in allocated space 

// for growing and shrinking we grow in greater 
// than one element unit - this is that unit 
// typically 4 

// do not shrink memory if this is set 



template <class T> 

class scSizeableArrayD : public scArray<T> { 
public: 

scSizeableArrayD ( ) ; 
'"scSizeableArrayD ( ) ; 



void 
void 

T& 

int 
void 

void 

[3 void 

;f void 

& ri 

fy 
C3 

void 

C3 

private : 
5 "1 void 
void 

u 

?- z void 

lac? 

n 

■8 57 



int 



void 



void 
void 
void 



unsigned 
unsigned 



Remove ( int ); 
RemoveAll( void ); 

Grow ( ) ; 

Append ( const T& ) ; 
Insert ( int, const T& ); 

Set( int, const T& ); 

SetNumSlots( int numSlots ); 

SetRetainMem( int tf ) 
{ 

retainMem_ - tf ? 1 : 0; 

} 

GetRetainMem( void ) const 
{ 

return retainMem_; 

} 

exch( const scSizeableArrayD<T>& ); 



constructItem( int ); 
deleteltem( int ); 

MoreSlots( void ) 
{ 

GrowSlots( blockSize_ ); 

} 

ShrinkSlots( void ) 
{ 

SetNumSlots ( numltems_ ); 

} 

SizeSlots( unsigned ); 
GrowSlots( int ); 
ClearMem( unsigned ); 



elemSlots_ ; 
blockSize_ : 16; 



unsigned retainMera_ : 1; 



// num of elements potentially in allocated space 
// for growing and shrinking we grow in greater 
// than one element unit - this is that unit 
// typically 4 

// do not shrink memory if this is set 



// CT is a comparison class - it must have a method 
// Compare ( const T&„ const T& ) 



template <class T, class CT> 
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b^^bcSizeableArray<T> { 



class scBinarySortedArray : pub| 
public: 

int Find( const T&„ int* insertlndex ° 0 ) const; 

int Findl( const T&, const CT&, int* insertlndex - 0 ) const; 

int SortInsert( const T& ); 

}; 

/* ■■naoBsassDOBsnnDooBBsnaeDsstsaassnssnooaoDeaBEiiiDonaooeaaDoaanaoooooD */ 

template <class T # class CT> 

class scBinarySortedArrayD : public scSizeableArrayD<T> { 
public : 

int Find( const T&„ int* insertlndex - 0 ) const; 

int Findl( const T&, const CT&, int* insertlndex « 0 ) const; 

int SortInsert( const T& ) ; 

}; 



:BBooaaeoBaat>aasDas • / 



#ifdef D E F I NEJTEMP LATE S 
#include "scarray .cpp" 
#endif 

#endif 



n 

3 rs 

In 

ru 

I J 

s 

U 
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File: SCBE2BLE.C 



SHeader: /Projects/Too lbox/ct/SCBEZBLE .CPP 2 5/30/97 8:45a Wmanis $ 
Contains: the blending values for computing beziers 



Written by: Manis 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

*«•»*»»***•••»«««••*••»*•«•»*•«•*»*•*»••**•«•»*»••»•«•»*«••«*•***»«**««•/ 



/« this contains standard function values, we use tables instead of actually 
* computing the value 
«/ 



^include "scbezier.h" 



sultezBlendValue bezblend 
/*; this one appears in a 

ry 

• t 3 



[scBezBlendSize] 
11 »/ 



scBezFactor ( 


0x0000, 


1. 


.0000000 




/* 


(0 


0) 


»/ 


scBezFactor ( 


0x0000, 


0, 


.0000000 




/« 


(0 


1) 


*/ 


scBezFactor ( 


0x0000, 


0. 


.0000000 




/* 


(0 


2) 


»/ 


scBezFactor ( 


0x0000, 


0, 


.0000000 


) 


/* 


(0 


3) 


«/ 



scBezFactor ( 


0xfd02, 


0.9883270 


). 


/* 


(1 


0) 


*/ 


scBezFactor ( 


0x02fa, 


0.0116274 


)* 


/» 


(1 


1) 


*/ 


scBezFactor ( 


0x0002, 


0.0000456 


). 


/* 


(1 


2) 


»/ 


scBezFactor ( 


0x0000, 


0.0000001 


) 


/* 


(1 


3) 


»/ 



n 

#ffdef SubDiv256 

f 

£3 
#a*idif 

iAdef SubDivl28 
{ 



#endif 



scBezFactor ( 


OxfaOb, 


0.9767451 




/* 


(2 


0) 


«/ 


scBezFactor ( 


0x05e8, 


0.0230727 


). 


/» 


(2 


1) 


*/ 


scBezFactor ( 


0x000b, 


0.0001817 




/* 


(2 


2) 


«/ 


scBezFactor ( 


0x0000, 


0.0000005 


) 


/* 


(2 


3) 


*/ 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0xf71a, 


0.9652541 


). 


/» 


(3 


0) 


»/ 


scBezFactor ( 


0x08ca, 


0.0343371 


)* 


/* 


(3 


1) 


»/ 


scBezFactor ( 


0x001a, 


0.0004072 


). 


/» 


(3 


2) 


*/ 


scBezFactor ( 


0x0000, 


0.0000016 


) 


/* 


(3 


3) 


»/ 



#endif 



#ifdef SubDiv64 
{ 



scBezFactor ( 


0xf42f , 


0, 


.9538536 




/* 


(4 


0) 


»/ 


scBezFactor ( 


OxObaO, 


0, 


.0454216 




/» 


(4 


1) 


*/ 


scBezFactor ( 


0x002f , 


0, 


.0007210 




/» 


(4 


2) 


*/ 
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scBezFactor ( 0x0000, O.^^B38 ) 

#endif 



/* (4 3) «/ 



scBezFactor ( 


Oxf 14a, 


0 


9425432 


)* 


/* 


(5 


0) 


»/ 


scBezFactor ( 


0x0e6b, 


0 


0563273 


). 


/* 


(5 


1) 


«/ 


scBezFactor ( 


0x0049, 


0 


0011221 


). 


/• 


(5 


2) 


*/ 


scBezFactor ( 


0x0000, 


0 


0000075 


) 


/• 


(5 


3) 


»/ 



#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDivl28 
{ 



#endif 



scBezFactor ( 


0xee6b, 


0 


9313226 




/* 


(6 


0) 


*/ 


scBezFactor ( 


Ox 112a, 


0. 


0670552 




/* 


(6 


1) 


»/ 


scBezFactor ( 


0x0069, 


0 


0016093 




/* 


(6 


2) 


*/ 


scBezFactor ( 


0x0000, 


0. 


0000129 


) 


/* 


(6 


3) 


»/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
f=i scBezFactor ( 
* z scBezFactor ( 

ti 

^Tidif 

ru 



SubDiv32 



0xeb91, 
0xl3de, 
0x008e, 
0x0001, 



scBezFactor ( 


0xe8be, 


0 


.9091492 


), 


/* 


(8 


0) 


*/ 


scBezFactor ( 


0x1686, 


0 


0879822 


). 


/« 


(8 


1) 


«/ 


scBezFactor ( 


OxOOba, 


0 


.0028381 


). 


/* 


(8 


2) 


«/ 


scBezFactor ( 


0x0002, 


0 


0000305 


) 


/* 


(8 


3) 


»/ 



C3 

s 

na 

#£pdif 



id 

M£ie£ SubDiv256 

hi 





/» 


(7 


0) 


»/ 


). 


/* 


(7 


1) 


«/ 


). 


/» 


(7 


2) 


»/ 


) 


/* 


(7 


3) 


*/ 



scBezFactor ( 


0xe5f 0, 


0 


.8981957 




/* 


(9 


0) 


*/ 


scBezFactor ( 


0x1922, 


0 


.0981833 


)* 


/« 


(9 


1) 


*/ 


scBezFactor ( 


OxOOea, 


0 


.0035775 




/* 


(9 


2) 


*/ 


scBezFactor ( 


0x0002, 


0 


.0000435 


) 


/• 


(9 


3) 


»/ 



#endif 



#ifdef SubDivl28 
{ 



#endif 



scBezFactor ( 


0xe328, 


0 


8873305 




/* 


(10 


0) 


*/ 


scBezFactor ( 


0xlbb3, 


0 


1082110 


). 


/« 


(10 


1) 


«/ 


scBezFactor ( 


0x0120, 


0 


0043988 




/* 


(10 


2) 


*/ 


scBezFactor ( 


0x0003, 


0 


0000596 


) 


/♦ 


(10 


3) 


*/ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0xe065, 


0. 


8765534 


)* 


/* 


(11 


0) 


*/ 


scBezFactor ( 


0xle39, 


0. 


1180664 


). 


/* 


(11 


1) 


«/ 


scBezFactor ( 


0x015b, 


0. 


0053009 


)* 


/* 


(11 


2) 


*/ 


scBezFactor ( 


0x0005, 


0. 


0000793 


) 


/* 


(11 


3) 


*/ 
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#ifdef SubDiv64 
{ 



scBezFactor ( 


0xdda9„ 


0 


8658638 


). 


/* 


(12 


0) 


*/ 


scBezFactor( 


0x20b4, 


0 


1277504 




/» 


(12 


1) 


*/ 


scBezFactor ( 


0x019b, 


0 


0062828 




/« 


(12 


2) 


«/ 


scBezFactor ( 


0x0006, 


0 


0001030 


) 


/* 


(12 


3) 


«/ 



#endif 



#ifdef SubDiv256 



scBezFactor ( 


Oxdaf 2, 


0 


8552615 


), 


/« 


(13 


0) 


*/ 


scBezFactor ( 


0x2323, 


0 


1372642 


)* 


/« 


(13 


1) 


*/ 


scBezFactor ( 


0x0 lei. 


0 


0073434 


). 


/» 


(13 


2) 


»/ 


scBezFactor ( 


0x0008, 


0 


0001310 


) 


/* 


(13 


3) 


*/ 



}- 

#endif 



#ifdef 
{ 



SubDivl28 



scBezFactor ( 


0xd841, 


0.8447461 


)- 


/* 


(14 


0) 


«/ 


scBezFactor ( 


0x2588, 


0.1466088 


)* 


/* 


(14 


1) 


«/ 


scBezFactor ( 


0x022b, 


0.0084815 


), 


/» 


(14 


2) 


«/ 


scBezFactor ( 


0x000a, 


0.0001636 


) 


/* 


(14 


3) 


*/ 



*apdif 

*§f?def SubDiv256 

^3 
hi 

#eidif 



scBezFactor ( 


0xd595, 


0.8343173 


)• 


/» 


(15 


0) 


*/ 


scBezFactor ( 


0x27el, 


0 


1557854 


)* 


/« 


(15 


1) 


*/ 


scBezFactor ( 


0x027b, 


0 


0096962 


). 


/» 


(15 


2) 


«/ 


scBezFactor ( 


OxOOOd, 


0 


0002012 


) 


/* 


(15 


3) 


*/ 



A4def SubDivl6 



C3 

#endif 



scBezFactor ( 


0xd2f0, 


0.8239746 


)* 


/» 


(16 


0) 


»/ 


scBezFactor ( 


0x2a30, 


0 


1647949 


). 


/» 


(16 


1) 


«/ 


scBezFactor ( 


0x02d0, 


0 


0109863 


). 


/* 


(16 


2) 


*/ 


scBezFactor ( 


0x0010, 


0 


0002441 


) 


/* 


(16 


3) 


»/ 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0xd04f, 


0 


8137178 


). 


/• 


(17 


0) 


*/ 


scBezFactor ( 


0x2c73, 


0 


1736385 


)* 


/* 


(17 


1) 


»/ 


scBezFactor ( 


0x0329, 


0 


0123509 


)* 


/* 


(17 


2) 


»/ 


scBezFactor ( 


0x0013, 


0 


0002928 


) 


/* 


(17 


3) 


*/ 



#endif 



#ifdef SubDivl28 
{ 



scBezFactor ( 


OxcdbS, 


0 


8035464 




/» 


(18 


0) 


*/ 


scBezFactor ( 


0x2eac , 


0 


1823173 




/» 


(18 


1) 


«/ 


scBezFactor ( 


0x0387, 


0 


0137887 


)* 


/* 


(18 


2) 


«/ 


scBezFactor ( 


0x0016, 


0 


0003476 


) 


/» 


(18 


3) 


»/ 



#endif 



#ifdef SubDiv256 



« 
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{ 

scBezFactor( Oxcb20, 

scBezFactor( 0x30da, 

scBezFactor( 0xQ3ea, 

scBezFactor( 0x00 la , 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor( 0xc890, 

scBezFactor( 0x32fd, 

scBezFactor( 0x0452, 

scBezFactor( OxOOlf, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0xc606, 

scBezFactor( 0x3516, 

scBezFactor( 0x04be, 

scBezFactor( 0x0024, 

#endif 



#|i=fdef SubDivl28 

a 

]jf scBezFactor( 0xc382, 
.£i1 scBezFactor( 0x3724, 
fy scBezFactor( 0x052f, 
scBezFactor( 0x0029, 

}\- 

*bidif 

Aide? SubDiv256 

Cj scBezFactorf 0xcl03, 

scBezFactor( 0x3928, 

scBezFactor( 0x05a4, 

iy scBezFactor( 0x002f, 

#pgdif 

C3 

#ifdef SubDiv32 
{ 

scBezFactor( 0xbe8a, 
scBezFactor( 0x3b22, 
scBezFactor ( 0x06 le, 
scBezFactor ( 0x0036, 

}• 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0xbcl5, 

scBezFactor ( 0x3dll, 

scBezFactor( 0x069b, 

scBezFactor ( 0x003d, 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor( 0xb9a7, 
scBezFactor ( 0x3ef5, 



0. 


.79TO02 


). 


/* 


(19 


0) 


*/ 


0. 


,1908322 


). 


/» 


(19 


1) 


*/ 


0. 


0152988 


). 


/» 


(19 


2) 


»/ 


0. 


,0004088 


) 


/» 


(19 


3) 


*/ 


0. 


7834587 




/« 


(20 


0) 


«/ 


0. 


1991844 




/» 


(20 


1) 


*/ 


0. 


0168800 


). 


/« 


(20 


2) 


»/ 


0. 


0004768 


) 


/« 


(20 


3) 


«/ 


0. 


7735416 


)* 


/* 


(21 


0) 


»/ 


0. 


2073750 


). 


/» 


(21 


1) 


«/ 


0. 


0185314 


). 


/« 


(21 


2) 


*/ 


0. 


0005520 


) 


/♦ 


(21 


3) 


»/ 


0. 


7637086 


)* 


/» 


(22 


0) 


*/ 


0. 


2154050 


). 


/« 


(22 


1) 


*/ 


0. 


0202518 


). 


/* 


(22 


2) 


«/ 


0. 


0006347 


) 


/* 


(22 


3) 


*/ 


0. 


7539592 


)- 


/» 


(23 


0) 


*/ 


0. 


2232755 




/* 


(23 


1) 


*/ 


0. 


0220401 




/« 


(23 


2) 


»/ 


0. 


0007252 


) 


/« 


(23 


3) 


»/ 


0. 


7442932 


)- 


/* 


(24 


0) 


*/ 


0. 


2309875 




/* 


(24 


1) 


«/ 


0. 


0238953 




/« 


(24 


2) 


«/ 


0. 


0008240 


) 


/« 


(24 


3) 


*/ 


0. 


7347102 




/* 


(25- 


0) 


*/ 


0. 


2385423 


). 


/* 


(25 


1) 


*/ 


0. 


0258163 


)* 


/* 


(25 


2) 


*/ 


0. 


0009313 


) 


/* 


(25 


3) 


*/ 


0. 


7252097 


)* 


/* 


(26 


0) 


*/ 


0. 


2459407 


). 


/« 


(26 


1) 


*/ 



File : Work\CrtPrt\Stonehnd\Scbezble .cpp 



scBezFactor ( 0x07 le , 
scBezFactor ( 0x0044, 

h 

#endif 



• 

0^11 



13020 ), 
.0476 ) 



/* (26 2) «/ 
/« (26 3) */ 



scBezFactor ( 


0xb73e, 


0, 


.7157915 




/* 


(27 


0) 


*/ 


scBezFactor ( 


0x40d0, 


0, 


,2531839 




/» 


(27 


1) 


*/ 


scBezFactor ( 


0x07a4, 


0, 


.0298514 




/» 


(27 


2) 


»/ 


scBezFactor ( 


0x004c, 


0. 


.0011732 


) 


/« 


(27 


3) 


»/ 



#ifdef SubDiv256 
{ 



}. 

#endif 



#ifdef SubDiv64 
{ 



#endif 



scBezFactor ( 


0xb4da, 


0, 


.7064552 




/* 


(28 


0) 


»/ 


scBezFactor ( 


0x42al, 


0, 


.2602730 


)- 


/* 


(28 


1) 


»/ 


scBezFactor ( 


0x082e, 


0. 


.0319633 




/« 


(28 


2) 


*/ 


scBezFactor ( 


0x0055, 


0. 


.0013084 


) 


/» 


(28 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 0xb27b, 
fl scBezFactor ( 0x4467, 
."^ scBezFactor ( 0x08bd, 
:^ scBezFactor ( 0x005f, 

*&Jdif 





/» 


(29 


0) 


«/ 


). 


/* 


(29 


1) 


«/ 




/* 


(29 


2) 


*/ 


) 


/* 


(29 


3) 


*/ 



£3 



*4^def SubDivl28 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

Ki 

#e'|dif 

u 

#k'-fdef SubDiv256 

<!5 



#endif 



0xb022, 
0x4624, 
0x094f , 
0x0069, 





/» 


(30 


0) 


*/ 


)* 


/* 


(30 


1) 


*/ 


). 


/» 


(30 


2) 


*/ 


) 


/» 


(30 


3) 


»/ 



scBezFactor ( 


Oxadce, 


0, 


.6789342 




/* 


(31 


0) 


*/ 


scBezFactor ( 


0x47d7, 


0. 


.2806261 




/* 


(31 


1) 


*/ 


scBezFactor ( 


0x09e5, 


0. 


.0386640 




/* 


(31 


2) 


»/ 


scBezFactor ( 


0x0074, 


0. 


.0017757 


) 


/* 


(31 


3) 


»/ 



#ifdef SubDivB 
{ 



#endif 



scBezFactor ( 


0xab80, 


0, 


.6699219 


)* 




(32 


0) 


*/ 


scBezFactor ( 


0x4980, 


0. 


.2871094 


), 


/* 


(32 


1) 


*/ 


scBezFactor ( 


0x0a80, 


0. 


.0410156 


). 


/* 


(32 


2) 


«/ 


scBezFactor ( 


0x0080, 


0. 


.0019531 


) 


/* 


(32 


3) 


*/ 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0xa936, 


0. 


.6609897 




/* 


(33 


0) 


*/ 


scBezFactor ( 


0x4blf , 


0. 


.2934439 




/* 


(33 


1) 


*/ 


scBezFactor ( 


OxObld, 


0. 


.0434244 




/« 


(33 


2) 


*/ 


scBezFactor ( 


0x008c, 


0. 


.0021420 


) 


/« 


(33 


3) 


»/ 
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#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 0xa6f 2 , 

scBezFactor ( 0x4cb4„ 

scBezFactor ( QxObbf, 

scBezFactor ( 0x0099, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 0xa4b3 , 

scBezFactor ( 0x4e40„ 

scBezFactor ( 0x0c64„ 

scBezFactor( 0x00a7, 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor( 0xa279, 
scBezFactor( 0x4fc2, 
scBezFactor( OxOdOd, 
scBezFactor( 0x00b6, 

m 

#e&dif 

Cn 

dplfdef SubDiv256 

"~ scBezFactor ( 0xa045„ 

^ scBezFactor ( 0x5 13b, 

*J scBezFactor ( 0x0db9„ 

f 5 * scBezFactor ( Ox 00c 5, 

#iFdef SubDivl28 

e=~ scBezFactor( 0x9el5, 

p scBezFactor ( 0x52ab, 

?Z scBezFactor ( 0x0e68„ 

* J scBezFactor ( 0x00d6, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 0x9beb „ 

scBezFactor( 0x5411, 

scBezFactor ( OxOflb, 

scBezFactor ( 0x00e7„ 

#endif 



#ifdef SubDiv32 
{ 

scBezFactor ( 0x99c6 , 

scBezFactor ( 0x556e, 

scBezFactor ( 0x0fd2, 

scBezFactor ( OxOOfa, 

#endif 



0. 


6521373 


)- 


/« 


(34 


0) 


*/ 


0. 


2996306 


). 


/« 


(34 


1) 


*/ 


0. 


0458894 


)r 


/« 


(34 


2) 


»/ 


0. 


0023427 


) 


/* 


(34 


3) 




0. 


6433643 


)* 


/* 


(35 


0) 


*/ 


0. 


3056708 


). 


/» 


(35 


1) 


«/ 


0. 


0484094 


)* 


/* 


(35 


2) 


«/ 


0. 


0025555 


) 


/» 


(35 


3) 


»/ 


0. 


6346703 


)- 


/» 


(36 


0) 


»/ 


0. 


3115654 


)* 


/* 


(36 


1) 


«/ 


0. 


0509834 


)* 


/« 


(36 


2) 


*/ 


0. 


0027809 


) 


/» 


(36 


3) 


«/ 


0. 


6260549 


)' 


/« 


(37 


0) 


*/ 


0. 


3173155 


). 


/» 


(37 


1) 


*/ 


0. 


0536104 


). 


/* 


(37 


2) 


»/ 


0. 


0030192 


) 


/* 


(37 


3) 


*/ 


0. 


6175179 


)' 


/• 


(38 


0) 


*/ 


0. 


3229222 


). 


/» 


(38 


1) 


»/ 


0. 


0562892 


), 


/« 


(38 


2) 


«/ 


0. 


0032706 


) 


/» 


(38 


3) 


*/ 


0. 


6090589 


). 


/« 


(39 


0) 


*/ 


0. 


3283866 


). 


/« 


(39 


1) 


*/ 


0- 


0590188 


). 


/« 


(39 


2) 


*/ 


0. 


0035357 


) 


/» 


(39 


3) 


*/ 


0. 


6006775 




/* 


(40 


0) 


*/ 


0. 


3337097 




/» 


(40 


1) 


*/ 


0. 


0617981 




/« 


(40 


2) 


*/ 


0. 


0038147 


) 


/* 


(40 


3) 


«/ 
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scBezFactor ( 


0x97a5, 


0, 


.5923733 




/« 


(41 


0) 


*/ 


scBezFactor ( 


0x56cl, 


0. 


.3388926 




/» 


(41 


1) 


*/ 


scBezFactor ( 


0x108b, 


0, 


.0646260 




/« 


(41 


2) 


*/ 


scBezFactor ( 


OxOlOd, 


0, 


,0041080 


) 


/* 


(41 


3) 


»/ 



#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDivl28 
{ 



scBezFactor ( 


0x958a, 


0. 


5841460 


). 


/* 


(42 


0) 


*/ 


scBezFactor ( 


0x580c, 


0. 


3439364 


)> 


/• 


(42 


1) 


»/ 


scBezFactor ( 


0x1147, 


0. 


0675015 


)* 


/* 


(42 


2) 


*/ 


scBezFactor ( 


0x0121, 


0. 


0044160 


) 


/* 


(42 


3) 


*/ 



/tend if 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x9374, 


0. 


.5759953 






(43 


0) 


*/ 


scBezFactor ( 


0x594d, 


0. 


.3488422 




/» 


(43 


1) 


»/ 


scBezFactor ( 


0x1207, 


0. 


.0704235 






(43 


2) 


»/ 


scBezFactor ( 


0x0136, 


0. 


.0047390 


) 


/» 


(43 


3) 


*/ 



#endif 



#i=£def SubDiv64 



scBezFactor ( 


0x9163, 


0, 


.5679207 


)* 




(44 


0) 


«/ 


scBezFactor ( 


0x5a86, 


0, 


.3536110 


)* 


/* 


(44 


1) 


*/ 


scBezFactor ( 


0xl2c9, 


0.0733910 


). 




(44 


2) 


*/ 


scBezFactor ( 


0x014c, 


0. 


.0050774 


) 


/* 


(44 


3) 


*/ 



#Udif 

£3 

#l_fdef SubDiv256 

{S3 

scBezFactor ( 
: | scBezFactor( 
scBezFactor ( 
scBezFactor ( 



#j&ndif 



0x8f57, 
0x5bb5, 
0xl38f , 
0x0163, 





/• 


(45 


0) 






/« 


(45 


1) 


»/ 




/» 


(45 


2) 


»/ 


) 


/» 


(45 


3) 


«/ 



#ifdef SubDivl28 
{ 



#endif 



scBezFactor ( 


0x8d4f , 


0. 


.5519986 


), 


/» 


(46 


0) 


«/ 


scBezFactor ( 


OxScdc, 


0. 


.3627419 


). 


/» 


(46 


1) 


«/ 


scBezFactor ( 


0x1457, 


0. 


.0794578 


)* 


/» 


(46 


2) 


»/ 


scBezFactor ( 


0x017c, 


0. 


.0058017 


) 


/* 


(46 


3) 


»/ 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x8b4d, 


0. 


.5441504 


)* 


/* 


(47 


0) 


«/ 


scBezFactor ( 


0x5dfa, 


0. 


.3671063 


). 


/» 


(47 


1) 


»/ 


scBezFactor ( 


0x1522, 


0. 


.0825550 


). 


/» 


(47 


2) 


«/ 


scBezFactor ( 


0x0195, 


0. 


.0061883 


) 


/» 


(47 


3) 


«/ 



#endif 



#ifdef SubDivl6 
{ 

scBezFactor( 0x8950, 



0.5363770 ), /» (48 0) •/ 
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scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

}* 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor { 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 

U 

l** scBezFactor ( 
^3 scBezFactor ( 
scBezFactor ( 
!!* scBezFactor ( 

#e|dif 

iy 

#l4de£ SubDiv64 

scBezFactor ( 
scBezFactor ( 
^ scBezFactor ( 
scBezFactor ( 

#»dif 

C5 

#£=£def SubDiv256 

^fc ST 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor { 
scBezFactor ( 

}. 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 



0x5f 10, 
0xl5f0, 
OxOlbO, 



0x8757, 
0x601c, 
0xl6c0, 
0x0 lcb. 



0x8563, 
0x6120, 
0x1793, 
0x0 le8. 



0x8374, 
0x621c, 
0x1868, 
0x0206, 



0x818a, 
0x630f , 
0x1940, 
0x0225, 



0x7fa5, 
0x63fa, 
Ox la la, 
0x0245, 



0x7dc4, 
0x64dd, 
0xlaf6, 
0x0267, 



0x7be9, 
0x65b7, 
OxlbdS, 
0x0289, 



ol^B379 

0.0S56934 ), 
0.0065918 ) 



0.5286779 ), 
0.3754379 ), 
0.0888718 ), 
0.0070124 ) 



0.5210528 ), 

0.3794074 ), 

0.0920892 ), 

0.0074506 ) 



0.5135015 ), 
0.3832474 ), 
0.0953445 ), 
0.0079066 ) 



0.5060234 ), 

0.3869591 ), 

0.0986366 ), 

0.0083809 ) 



0.4986183 ), 
0.3905434 ), 
0.1019645 ), 
0.0088738 ) 



0.4912858 ), 
0.3940015 ), 
0.1053271 ), 
0.0093856 ) 



0.4840255 ), 
0.3973344 ), 
0.1087233 ), 
0.0099167 ) 



/« 
/» 
/* 


(48 
(48 
(48 


1) 
2) 
3) 


»/ 
»/ 
*/ 


/* 
/» 
/» 
/» 


(49 
(49 
(49 
(49 


0) 
1) 
2) 
3) 


«/ 
«/ 
*/ 
*/ 


/» 
/» 
/• 
/* 


(50 
(50 
(50 
(50 


0) 
1) 
2) 
3) 


»/ 

«/ 
*/ 
«/ 


/» 
/« 
/* 
/* 


(51 
(51 
(51 
(51 


0) 
1) 
2) 
3) 


*/ 
*/ 
*/ 
»/ 


/* 
/* 
/» 
/» 


(52 
(52 
(52 
(52 


0) 
1) 
2) 
3) 


*/ 
»/ 
*/ 
»/ 


/* 
/* 
/* 
/« 


(53 
(53 
(53 
(53 


0) 
1) 
2) 
3) 


*/ 
«/ 
«/ 
*/ 


/* 
/* 
/» 
/» 


(54 
(54 
(54 
(54 


0) 
1) 
2) 
3) 


*/ 
*/ 
*/ 
*/ 


/« 
/* 
/* 
/» 


(55 
(55 
(55 
(55 


0) 
1) 
2) 
3) 


*/ 
*/ 
»/ 
*/ 
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#endif 



#ifdef SubDiv32 
{ 

scBezFactor ( Ox 7a 12, 

scBezFactor ( 0x668a, 

scBezFactor ( 0xlcb6, 

scBezFactor ( 0x02ae, 

#endif 



0.4768372 ), 

0.4005432 ), 

0.1121521 ), 

0.0104675 ) 



(56 0) ♦/ 

(56 1) »/ 

(56 2) */ 

(56 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x783f, 

scBezFactor( 0x6754, 

scBezFactor ( 0xld98, 

scBezFactor ( 0x02d3, 

#endif 



0.4697203 ), 

0.4036290 ), 

0.1156123 ), 

0.0110384 ) 



/* 
/» 
/* 
/* 



(57 0) */ 

(57 1) */ 

(57 2) */ 

(57 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 
scBezFactor ( 
scBezFactor ( 
12 scBezFactor ( 

En 

ru 

#i=£def SubDiv256 
.u 



C3 
H 



scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

if 



0x7671, 
0x6816, 
0xle7d, 
0x02fa, 



0x74a8, 
0x68d0, 
0xlf64, 
0x0322, 



0.4626746 ), 
0.4065928 ), 
0.1191030 ), 
0.0116296 ) 



0.4556997 ), 
0.4094358 ), 
0.1226229 ), 
0.0122415 ) 



/* 



/* 
/« 

/* 



(58 0) */ 

(58 1) */ 

(58 2) •/ 

(58 3) »/ 



(59 0) */ 

(59 1) •/ 

(59 2) */ 

(59 3) 



#Wdef SubDiv64 

?~\ scBezFactor( 0x72e4, 

:Z scBezFactor( 0x6983, 

^ scBezFactor( 0x204c, 

scBezFactor ( 0x034b, 

#endif 



0.4487953 ), 

0.4121590 ), 

0.1261711 ), 

0.0128746 ) 



/» 
/» 



(60 0) */ 

(60 1) */ 

(60 2) */ 

(60 3) «/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 0x7124, 0.4419610 ), 

scBezFactor ( 0x6a2d, 0.4147634 ), 

scBezFactor ( 0x2137, 0.1297465 ), 

scBezFactor ( 0x0376, 0.0135291 ) 

}. 

#endif 



/» 



(61 0) »/ 

(61 1) »/ 

(61 2) */ 

(61 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x6f69, 0.4351964 ), 

scBezFactor ( 0x6ad0, 0.4172502 ), 

scBezFactor( 0x2223, 0.1333480 ), 

scBezFactor ( 0x03a2, 0.0142055 ) 

#endif 



/» 



(62 0) »/ 

(62 1) •/ 

(62 2) »/ 

(62 3) */ 
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#ifdef SubDiv256 




{ 



scBezFactor( 


0x6db2, 


0. 


4285012 


). 


/* 


(63 


0) 


«/ 


scBezFactor ( 


Qx6b6c, 


0, 


4196203 


)* 


/» 


(63 


1) 


•/ 


scBezFactor ( 


0x2310, 


0. 


1369745 


). 


/* 


(63 


2) 


*/ 


scBezFactor ( 


0x03d0, 


0. 


0149040 


) 


/» 


(63 


3) 


•/ 



#8ndif 



#ifdef SubDiv4 
{ 



scBezFactor ( 


0x6c00, 


0. 


.4218750 


)♦ 


/« 


(64 


0) 


«/ 


scBezFactor( 


0x6c00, 


0. 


,4218750 


)* 


/* 


(64 


1) 


«/ 


scBezFactor ( 


0x2400, 


0, 


.1406250 


). 


/* 


(64 


2) 


*/ 


scBezFactor ( 


0x0400, 


0. 


.0156250 


) 


/* 


(64 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x6a52, 


0. 


4153175 




/* 


(65 


0) 


«/ 


scBezFactor ( 


0x6c8c, 


0. 


4240152 




/» 


(65 


1) 


«/ 


scBezFactor ( 


Ox24fO, 


0. 


1442984 




/* 


(65 


2) 


«/ 


scBezFactor ( 


0x0430, 


0. 


0163689 


) 


/» 


(65 


3) 


»/ 



}. 

#endif 



#ifdef SubDivl28 

{(R 

P!{ scBezFactor ( 0x68a8, 
J ^ scBezFactor ( 0x6dll, 
scBezFactor ( 0x25e2, 
ill scBezFactor( 0x0463, 

#esjdif 

#jgdef SubDiv256 
{II 

" scBezFactor( 0x6704, 
LU scBezFactor ( 0x6d8e, 
ti; scBezFactor( 0x26d6, 
a » scBezFactor/ 0x0496, 



0 


.4088283 


)* 


/* 


(66 


0) 


*/ 


0 


.4260421 


). 


/* 


(66 


1) 


*/ 


0 


.1479936 


), 


/* 


(66 


2) 


*/ 


0 


.0171361 


) 


/* 


(66 


3) 


*/ 



0. 


4024070 


). 


/* 


(67 


0) 


*/ 


0. 


4279566 


)* 


/» 


(67 


1) 


*/ 


0. 


1517095 


). 


/* 


(67 


2) 


«/ 


0. 


0179269 


) 


/* 


(67 


3) 


»/ 



#ifdef SubDiv64 
{ 



scBezFactor ( 


0x6563, 


0 


.3960533 


). 


/» 


(68 


0) 


*/ 


scBezFactor ( 


0x6e04, 


0 


.4297600 


/» 


(68 


1) 


«/ 


scBezFactor ( 


0x27cb, 


0 


. 1554451 




/» 


(68 


2) 


»/ 


scBezFactor ( 


0x04cc, 


0 


.0187416 


) 


/» 


(68 


3) 


*/ 



}. 

#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x63c7, 


0, 


.3897669 




/* 


(69 


0) 


*/ 


scBezFactor ( 


0x6e73, 


0. 


,4314532 




/« 


(69 


1) 


*/ 


scBezFactor ( 


0x28cl, 


0, 


.1591993 




/* 


(69 


2) 


*/ 


scBezFactor ( 


0x0503, 


0. 


,0195807 


) 


/* 


(69 


3) 


»/ 



#endif 



#ifdef SubDivl28 
{ 



File: Work\CrtPrt\Stonehnd\Scbezble .cpp 



scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv32 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 

*2 scBezFactor ( 
\J scBezFactor ( 
ffl scBezFactor ( 
?y scBezFactor ( 

#endif 

u 

#i^def SubDivl28 

b scBezFactor ( 
p scBezFactor ( 
y scBezFactor ( 
scBezFactor ( 

#£ttdif 

P 

#l!ief SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 



0x6230, O.^V473 

0x6edb, 0.4??0373 

0x29b8, 0.1629710 

0x053b, 0.0204444 



0x609c, 0.3773943 

0x6f3c, 0.4345134 

0x2ab0, 0.1667592 

0x0576. 0.0213332 



OxSfOe, 0.3713074 

Qx6f96, 0.4358826 

0x2baa, 0.1705627 

0x05b2, 0.0222473 



0x5d83, 0.3652863 

0x6fe8, 0.4371459 

0x2ca4, 0.1743806 

OxOSef, 0.0231872 



0x5bfd, 0.3593307 

0x7034, 0.4383044 

0x2d9f, 0.1782117 

0x062e, 0.0241532 



0x5a7b, 0.3534401 

0x7079, 0.4393592 

Qx2e9b, 0.1820549 

0x066f, 0.0251457 



0x58fd, 0.3476143 

0x70b8, 0.4403114 

0x2f97, 0.1859093 

0x06b2, 0.0261650 



0x5783, 0.3418528 
0x70ef, 0.4411620 
0x3095, 0.1897736 





/» 


(70 


0) 


•/ 


). 


/» 


(70 


1) 


*/ 


). 


/« 


(70 


2) 


•/ 


) 


/» 


(70 


3) 


*/ 




/» 


(71 


0) 


•/ 


). 


/» 


(71 


1) 


»/ 


). 


/» 


(71 


2) 


»/ 


) 


/» 


(71 


3) 


•/ 




/• 


(72 


0) 


•/ 


). 


/» 


(72 


1) 


•/ 


). 


/« 


(72 


2) 


«/ 


) 


/« 


(72 


3) 


»/ 


). 


/• 


(73 


0) 


»/ 


). 




(73 


1) 


•/ 


). 


/• 


(73 


2) 


•/ 


) 


/» 


(73 


3) 


»/ 


). 


/• 


(74 


0) 


»/ 


). 


/• 


(74 


1) 


«/ 


). 


/• 


(74 


2) 


»/ 


) 


/* 


(74 


3) 


«/ 


). 


/• 


(75 


0) 


»/ 


). 


/• 


(75 


1) 


»/ 


), 


/» 


(75 


2) 


•/ 


) 


/* 


(75 


3) 


•/ 


). 


/• 


(76 


0) 


»/ 


). 


/• 


(76 


1) 


•/ 


), 


/» 


(76 


2) 


»/ 


) 


/» 


(76 


3) 


»/ 


). 


/• 


(77 


0) 


•/ 


). 


/» 


(77 


1) 


•/ 


)• 


/» 


(77 


2) 


•/ 
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#endif 



scBezFactor( 0x06f7, 



OJ 



115 ) 



/» (77 3) */ 



scBezFactor ( 


0x560e, 


0. 


3361554 


)♦ 


/• 


(78 


0) 


*/ 


scBezFactor ( 


0x7121, 


0. 


4419122 


)* 


/« 


(78 


1) 


»/ 


scBezFactor ( 


0x3192, 


0. 


1936469 


). 


/« 


(78 


2) 


•/ 


scBezFactorf 


0x073d, 


0. 


0282855 


) 


/• 


(78 


3) 


«/ 



#ifdef SubDivl28 
{ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor( 


0x549d, 


0. 


3305216 


)- 


/« 


(79 


0) 


•/ 


scBezFactor ( 


0x714b, 


0. 


4425629 


)* 


/* 


(79 


1) 


*/ 


scBezFactor ( 


0x3291, 


0. 


1975281 


). 


/* 


(79 


2) 


*/ 


scBezFactorf 


0x0785, 


0. 


0293874 


) 


/» 


(79 


3) 


*/ 



#endif 



#ifdef SubDivl6 
{ 



scBezFactorf 


0x5330, 


0, 


.3249512 




/» 


(80 


0) 


*/ 


scBezFactor ( 


0x7170, 


0. 


.4431152 




/* 


(80 


1) 


*/ 


scBezFactor ( 


0x3390, 


0. 


.2014160 




/» 


(80 


2) 


*/ 


scBezFactor ( 


0x07d0, 


0. 


.0305176 


) 


/» 


(80 


3) 


*/ 



#Sadif 



#iidef SubDiv256 



s 

#£ijdif 



scBezFactor( 


0x51c7, 


0. 


.3194436 




/» 


(81 


0) 


«/ 


scBezFactor ( 


0x718d, 


0. 


,4435703 




/» 


(81 


1) 


«/ 


scBezFactor ( 


0x348f , 


0. 


.2053097 




/* 


(81 


2) 


»/ 


scBezFactorf 


0x081b, 


0. 


.0316764 


) 


/» 


(81 


3) 


*/ 



#i£def SubDivl28 

scBezFactorf 
I 3 scBezFactorf 
scBezFactorf 
scBezFactorf 

}* 

#endif 



0x5062, 
0x7 la5, 
0x358e, 
0x0869, 





/» 


(82 


0) 


*/ 


)* 


/« 


(82 


1) 


»/ 


)♦ 


/* 


(82 


2) 


*/ 




/* 


(82 


3) 


*/ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactorf 


0x4f01, 


0. 


.3086160 


)* 


/» 


(83 


0) 


*/ 


scBezFactor ( 


0x71b6, 


0. 


,4441929 


)* 


/* 


(83 


1) 


*/ 


scBezFactor ( 


0x368e, 


0. 


.2131099 


). 


/« 


(83 


2) 


*/ 


scBezFactorf 


0x08b9, 


0. 


,0340812 


) 


/» 


(83 


3) 


*/ 



#ifdef SubDiv64 
{ 



#endif 



scBezFactorf 


0x4da4, 


0. 


.3032951 




/* 


(84 


0) 


*/ 


scBezFactorf 


0x71cl, 


0. 


,4443626 




/« 


(84 


1) 


*/ 


scBezFactor ( 


0x378e, 


0. 


.2170143 




/* 


(84 


2) 


•/ 


scBezFactorf 


0x090b, 


0, 


,0353279 


) 


/» 


(84 


3) 


»/ 



File: Work\CrtPrt\Stonehnd\Scbezble .cpp 



#ifdef SubDiv256 
{ 

scBezFactor( 0x4c4c, 0.2980358 ), 

scBezFactor( 0x71c6, 0.4444394 ), 

scBezFactor( 0x388e, 0.2209201 ), 

scBezFactor( Qx095e, 0.0366047 ) 

#endif 



/» 
/* 



(85 0) «/ 

(85 1) «/ 

(85 2) »/ 

(85 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x4af7, 
scBezFactor( 0x7 lc5, 
scBezFactor( 0x398e, 
scBezFactor( 0x09b4, 

#endif 



0.2928376 ), 
0.4444242 ), 
0.2248263 ), 
0.0379119 ) 



/» (86 0) «/ 

/» (86 1) */ 

/* (86 2) */ 

/* (86 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( 
scBezFactor( 
scBezFactor( 
scBezFactor( 

}. 

#$&dif 



0x49a6, 
0x71be, 
0x3a8e, 
OxOaOc, 



0.2877002 ), 
0.4443181 ), 
0.2287318 ), 
0.0392498 ) 



/* 
/« 



(87 0) »/ 

(87 1) «/ 

(87 2) */ 

(87 3) */ 



#f£def SubDiv32 

z. scBezFactor( 
S3 scBezFactor( 
LJ scBezFactor( 
u scBezFactorf 

#effdif 



0x485a, 
0x71b2, 
0x3b8e, 
0x0366, 



0.2826233 ), 
0.4441223 ), 
0.2326355 ), 
0.0406189 ) 



/* 



(88 0) */ 

(88 1) »/ 

(88 2) «/ 

(88 3) «/ 



#ff!def SubDiv256 

IJ scBezFactor( 0x4711, 

lx scBezFactor( 0x7 19f , 

^ scBezFactor ( 0x3c8d, 

scBezFactor ( OxOacl, 

}£3 

#endif 



0.2776064 ), 
0.4438378 ), 
0.2365363 ), 
0.0420194 ) 



(89 0) 

(89 1) */ 

(89 2) 

(89 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x45cc, 
scBezFactor( 0x7186, 
scBezFactor ( 0x3d8d, 
scBezFactor ( OxOblf, 

#endif 



0.2726493 ), 
0.4434657 ), 
0.2404332 ), 
0.0434518 ) 



(90 0) */ 

(90 1) */ 

(90 2) ♦/ 

(90 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x448b, 

scBezFactor ( 0x7168, 

scBezFactor ( 0x3e8c , 

scBezFactor ( OxOb7f, 

#endif 



0.2677515 ), 

0.4430071 ), 

0.2443251 ), 

0.0449163 ) 



/* (91 0) •/ 

/» (91 1) «/ 

/« (91 2) */ 

/» (91 3) »/ 



#ifdef SubDiv64 



File: Work\CrtPrt\Stonehnd\Scbezble . cpp 



{ 

scBezFactor( 0x434e, 

scBezFactor ( 0x7145, 

scBezFactor ( 0x3f8a, 

scBezFactor ( OxObel, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x4214, 

scBezFactor ( 0x7 11c, 

scBezFactor( 0x4088, 

scBezFactor( 0x0c46, 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor( 0x40df, 
scBezFactor ( 0x70ed, 
scBezFactor ( 0x4186, 
scBezFactor ( OxOcac, 

}* 

#endif 



#ifdef SubDiv256 

{p 

Q scBezFactor( 0x3fad, 
;Z scBezFactor ( 0x70b9, 
j;;! scBezFactor ( 0x4283, 
! : J scBezFactor( 0x0dl5, 

#|9$dif 

H 

#||def SubDiv8 

scBezFactor ( 0x3e80, 

scBezFactor ( 0x7080, 

scBezFactor ( 0x4380, 

i . j scBezFactorf OxOdBO, 

};; 

#eSdif 

#ffdef SubDiv256 
{ 

scBezFactor( 0x3d55, 
scBezFactor ( 0x7041, 
scBezFactor ( 0x447b, 
scBezFactor ( OxOded, 

}* 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 0x3c2f, 

scBezFactor( 0x6ffd, 

scBezFactor ( 0x4576, 

scBezFactor ( 0x0e5c, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x3b0c, 
scBezFactor ( 0x6fb4, 



0 


.2W9128 




/« 


(92 


0) 


*/ 


0 


.4424629 


), 


/* 


(92 


1) 


*/ 


0 


.2482109 


). 


/« 


(92 


2) 


»/ 


0 


.0464134 


) 


/* 


(92 


3) 


»/ 


0 


.2581326 


). 


/» 


(93 


0) 




0, 


.4418344 


), 


/» 


(93 


1) 


«/ 


0 


.2520896 


)♦ 


/« 


(93 


2) 


*/ 


0, 


.0479434 


) 


/» 


(93 


3) 


*/ 


0, 


.2534108 


). 


/« 


(94 


0) 


*/ 


0. 


.4411225 


)» 


/* 


(94 


1) 


*/ 


0, 


.2559600 


). 


/* 


(94 


2) 


*/ 


0, 


.0495067 


) 


/» 


(94 


3) 


*/ 


0, 


.2487469 




/♦ 


(95 


0) 


*/ 


0. 


,4403284 


), 


/* 


(95 


1) 


»/ 


0, 


.2598211 


). 


/* 


(95 


2) 


*/ 


0. 


,0511035 


) 


/» 


(95 


3) 


*/ 


0. 


.2441406 




/* 


(96 


0) 


»/ 


0. 


.4394531 


), 


/* 


(96 


1) 


»/ 


0, 


,2636719 


)* 


/» 


(96 


2) 


»/ 


0. 


.0527344 


) 


/« 


(96 


3) 


*/ 


0. 


.2395915 


)* 


/* 


(97 


0) 


»/ 


0. 


,4384977 


), 


/« 


(97 


1) 


*/ 


0. 


.2675112 


)* 


/» 


(97 


2) 


*/ 


0. 


,0543995 


) 


/« 


(97 


3) 


»/ 


0. 


,2350993 




/« 


(98 


0) 


»/ 


0. 


4374633 


), 


/* 


(98 


1) 


*/ 


0. 


,2713380 


). 


/« 


(98 


2) 


•/ 


0. 


0560994 


) 


/» 


(98 


3) 


»/ 


0, 


2306636 


)* 


/« 


(99 


0) 


«/ 


0. 


4363509 


)♦ 


/» 


(99 


1) 





File: Work\CrtPrt\Stonehnd\Scbezble.cpp 



scBezFactor( 0x4670, 
scBezFactor( OxOece, 

#endif 



( 512 ), 
343 ) 



/* 



(99 2) 
(99 3) */ 



scBezFactor ( 


0x39ed, 


0, 


.2262840 




/* 


(100 


0) 


*/ 


scBezFactor ( 


0x6f66, 


0. 


,4351616 




/» 


(100 


1) 


«/ 


scBezFactor ( 


0x4769, 


0, 


,2789497 




/* 


(100 


2) 


*/ 


scBezFactor ( 


0x0f42, 


0. 


.0596046 


) 


/» 


(100 


3) 


»/ 



#ifdef SubDiv64 
{ 



#endif 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x38d2, 


0. 


2219602 


). 


/» 


(101 


0) 


*/ 


scBezFactor ( 


0x6f 13, 


0. 


4338965 


). 


/« 


(101 


1) 


*/ 


scBezFactor ( 


0x4861, 


0. 


2827325 


)* 


/* 


(101 


2) 


«/ 


scBezFactor ( 


QxQfbS, 


0. 


0614107 


) 


/* 


(101 


3) 


«/ 



#ifdef SubDivl28 
{ 



scBezFactor ( 


0x37ba, 


0, 


.2176919 


)* 


/* 


(102 


0) 


*/ 


scBezFactor ( 


0x6ebc, 


0, 


.4325566 


). 


/» 


(102 


1) 


*/ 


scBezFactor ( 


0x4957, 


0 


.2864985 


). 


/* 


(102 


2) 


»/ 


scBezFactor ( 


0x1031, 


0, 


.0632529 


) 


/* 


(102 


3) 


*/ 



A^odif 

#£jdef SubDiv256 

*"4 scBezFactor ( 
[3 scBezFactor ( 
. B scBezFactor ( 
iS5 scBezFactor ( 

>H 
Id 

#fFdef SubDiv32 

{P 



#endif 



0x36a6, 
0x6e5f , 
0x4a4d, 
OxlOac, 





/« 


(103 


0) 


*/ 


)- 


/* 


(103 


1) 


*/ 


)* 


/« 


(103 


2) 


»/ 


) 


/» 


(103 


3) 


»/ 



scBezFactor ( 


0x3596, 


0 


.2093201 




/* 


(104 


0) 


*/ 


scBezFactor ( 


0x6dfe, 


0 


.4296570 


)* 


/* 


(104 


1) 


«/ 


scBezFactor ( 


0x4b42, 


0 


.2939758 




/* 


(104 


2) 


*/ 


scBezFactor ( 


0x112a, 


0 


.0670471 


) 


/* 


(104 


3) 


*/ 



#ifdef SubDiv256 
{ 



}. 



scBezFactor ( 


0x3489, 


0, 


.2052159 




/» 


(105 


0) 


»/ 


scBezFactor ( 


0x6d97, 


0. 


,4280993 




/* 


(105 


1) 


«/ 


scBezFactor ( 


0x4c35, 


0, 


.2976850 




/* 


(105 


2) 


*/ 


scBezFactor ( 


0xlla9, 


0. 


.0689998 


) 


/« 


(105 


3) 


*/ 



#endif 



#ifdef SubDivl28 
{ 



scBezFactor ( 


0x337f, 


0. 


.2011657 




/* 


(106 


0) 


*/ 


scBezFactor ( 


0x6d2d, 


0. 


.4264712 




/m 


(106 


1) 


*/ 


scBezFactor ( 


0x4d26, 


0. 


.3013730 




/» 


(106 


2) 


*/ 


scBezFactor ( 


0x122c, 


0. 


.0709901 


) 


/* 


(106 


3) 


*/ 



File: Work\CrtPrt\Stonehnd\Scbezble .cpp 
#endif 



P9: 16 



#ifdef SubDiv256 
{ 

scBezFactor( 0x3279. 

scBezFactor( 0x6cbd, 

scBezFactor ( 0x4el7, 

scBezFactor ( 0xl2bl, 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor( 0x3177, 
scBezFactor ( 0x6c4a, 
scBezFactor( 0x4f05, 
scBezFactor ( 0x1338, 

}* 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x3078, 
scBezFactor ( 0x6bd2, 
scBezFactor ( 0x4ff2, 
scBezFactor ( 0xl3c2, 

} it =: 

#esdif 

#iiEjdeF SubDivl28 

( iy 

%2 scBezFactor( 0x2f7c, 

i : \ scBezFactor ( 0x6b55, 

J* scBezFactor ( OxSOde, 

^ scBezFactor ( 0xl44f , 
}M 

#<|ndif 



#f&ef SubDiv256 

{ ^ scBezFactor( 0x2e84, 

^3 scBezFactor ( 0x6ad4, 

C3 scBezFactor ( 0x5 lc8, 

[j scBezFactor ( 0xl4de, 

}/" 
#endif 



#ifdef SubDivl6 
{ 

scBezFactor ( 0x2d90, 

scBezFactor ( 0x6a50, 

scBezFactor ( 0x52b0, 

scBezFactor( 0x1570, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 0x2c9e, 

scBezFactor ( 0x69c6, 

scBezFactor ( 0x5396, 

scBezFactor ( 0x1604, 

#endif 



0, 


,1971691 


). 


/* 


(107 


0) 


*/ 


0. 


4247738 


). 


/» 


(107 


1) 


»/ 


0. 


,3050389 


). 


/» 


(107 


2) 


»/ 


0. 


0730183 


) 


/* 


(107 


3) 


»/ 


0. 


1932259 




/« 


(108 


0) 


*/ 


0. 


4230080 


). 


/» 


(108 


1) 


«/ 


0. 


3086815 


), 


/* 


(108 


2) 


»/ 


0. 


0750847 


) 


/» 


(108 


3) 




0. 


1893355 


). 


/* 


(109 


0) 


»/ 


0. 


4211749 


). 


/* 


(109 


1) 


*/ 


0- 


3122998 


). 


/* 


(109 


2) 


«/ 


0. 


0771897 


) 


/* 


(109 


3) 


»/ 


0. 


1854978 




/« 


(110 


0) 


*/ 


0. 


4192758 


). 


/« 


(110 


1) 


«/ 


0. 


3158927 


), 


/« 


(110 


2) 


«/ 


0. 


0793338 


) 


/* 


(110 


3) 


«/ 


0. 


1817122 


). 


/* 


(111 


0) 


«/ 


0. 


4173115 


). 


/« 


(111 


1) 


*/ 


0. 


3194591 


)r 


/* 


(111 


2) 


»/ 


0. 


0815172 


) 


/* 


(111 


3) 


»/ 


0. 


1779785 


). 


/* 


(112 


0) 


«/ 


0. 


4152832 


), 


/* 


(112 


1) 


*/ 


0. 


3229980 


), 


/* 


(112 


2) 


*/ 


0. 


0837402 


) 


/* 


(112 


3) 


«/ 


0. 


1742963 


)> 


/* 


(113 


0) 


»/ 


0. 


4131920 




/» 


(113 


1) 


*/ 


0. 


3265083 




/* 


(113 


2) 


»/ 


0. 


0860034 


) 


/* 


(113 


3) 


»/ 



File: Vfork\CrtPrt\Stonehnd\Scbezble .cpp 



#ifdef SubDivl28 
{ 

scBezFactor( 0x2bb0, 
scBezFactor ( 0x6939, 
scBezFactor ( 0x547a, 
scBezFactor ( Ox 16 9b, 

}• 

#endif 



0.1706653 ), 

0.4110389 ), 

0.3299890 ), 

0.0883069 ) 



(114 0) «/ 

(114 1) »/ 

(114 2) »/ 

(114 3) »/ 



#ifdef SubDiv256 
{ 

scBezFactor( Ox2ac6, 
scBezFactor( 0x68a8, 
scBezFactor ( 0x555c, 
scBezFactor( 0x1734, 

#endif 



0.1670850 ), 

0.4088250 ), 

0.3334388 ), 

0.0906512 ) 



(115 0) */ 

(115 1) */ 

(115 2) «/ 

(115 3) 



#ifdef SubDiv64 
{ 

scBezFactor( 0x29de, 

scBezFactor( 0x6813, 

scBezFactor ( 0x563c, 

scBezFactor ( 0xl7dl, 

#endif 



0.1635551 ), 

0.4065514 ), 

0.3368568 ), 

0.0930367 ) 



(116 0) */ 

(116 1) */ 

(116 2) •/ 

(116 3) »/ 



#ii&ef SubDiv256 

fr t scBezFactor( 0x28fa, 
!!; scBezFactor( 0x677a, 
fy scBezFactor( 0x571a, 
^3 scBezFactor ( 0x1870, 



0.1600754 ), 

0.4042191 ), 

0.3402420 ), 

0.0954636 ) 



(117 0) «/ 

(117 1) •/ 

(117 2) «/ 

(117 3) •/ 



#ifdef SubDivl28 

%s3 scBezFactor ( 
~-j scBezFactor ( 
I scBezFactor ( 
I s : scBezFactor ( 
}> 
"lif 



0x2819, 
0x66de, 
0x57f5, 
0x1912, 



U 

#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



0x273c, 
0x663d, 
0x58cf , 
0xl9b6, 



0.1566453 ), 

0.4018292 ), 

0.3435931 ), 

0.0979323 ) 



0.1532646 ), 
0.3993829 ), 
0.3469092 ), 
0.1004433 ) 



(118 0) */ 

(118 1) */ 

(118 2) */ 

(118 3) */ 



(119 0) »/ 

(119 1) »/ 

(119 2) */ 

(119 3) »/ 



#ifdef SubDiv32 
{ 

scBezFactor ( 0x2662, 0.1499329 ), 

scBezFactor ( 0x659a, 0.3968811 ), 

scBezFactor ( 0x59a6, 0.3501892 ), 

scBezFactorf OxlaSe, 0.1029968 ) 

#endif 



/* 



(120 0) */ 

(120 1) */ 

(120 2) */ 

(120 3) »/ 



#ifdef SubDiv256 
{ 

scBezFactorf 0x258a, 



0.1466498 ), /* (121 0) */ 



File : Work\CrtPrt\Stonehnd\Scbezble .cpp 



scBezFactor( 0x64f2, 

scBezFactor ( 0x5a7a, 

scBezFactor ( 0xlb08, 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor( 0x24b6„ 

scBezFactor( 0x6447, 

scBezFactor ( Ox 5b 4c „ 

scBezFactor( OxlbbS, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x23e5, 
scBezFactor( 0x6399, 
scBezFactor ( OxSclb, 
scBezFactor ( 0xlc65, 

}. 

#endif 



#ifdef SubDiv64 
{ 

f2 scBezFactor( 0x2318, 
c 5 scBezFactor ( 0x62e7, 
%J scBezFactor ( 0x5ce8, 
Cfl scBezFactor ( Ox Id 17, 

#e^if 

% J 

LJ 

#ifdef SubDiv256 

scBezFactor ( 0x224d, 

s scBezFactor ( 0x6232, 

f 3 scBezFactor( 0x5db2, 

I j scBezFactor ( Ox Idcd , 

#dbUiif 

SubDivl28 

{ C3 

scBezFactor( 0x2186, 
scBezFactor ( 0x6179, 
scBezFactor ( 0x5e7a, 
scBezFactor ( Ox le 8 5 , 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 0x20cl, 

scBezFactor ( 0x60be, 

scBezFactor ( 0x5f3e, 

scBezFactor ( 0xlf41, 

#endif 



#ifdef SubDiv2 
{ 

scBezFactor( 0x2000, 

scBezFactor ( 0x6000, 

scBezFactor ( 0x6000, 

scBezFactor ( 0x2000, 



0 


.^K50 




/« 


(121 


1) 


*/ 


0 


. 3594320 


), 


/* 


(121 


2) 


*/ 


0 


- 1055933 


) 


/» 


(121 


3) 


»/ 


0 


.1434150 


). 


/* 


(122 


0) 


*/ 


0 


.3917155 


)* 


/» 


(122 


1) 


«/ 


0 


.3566365 


), 


/» 


(122 


2) 


«/ 


0 


.1082330 


) 


/» 


(122 


3) 


«/ 


0 


.1402281 


). 


/« 


(123 


0) 


*/ 


0 


.3890539 


). 


/« 


(123 


1) 


«/ 


0 


.3598017 


), 


/« 


(123 


2) 


*/ 


0 


.1109163 


) 


/* 


(123 


3) 


»/ 


0 


.1370888 


)> 


/* 


(124 


0) 


»/ 


0 


.3863411 


)* 


/* 


(124 


1) 


«/ 


0 


.3629265 


), 


/* 


(124 


2) 


*/ 


0 


.1136436 


) 


/* 


(124 


3) 


«/ 


0 


.1339967 


)- 


/* 


(125 


0) 


«/ 


0 


.3835782 


). 


/» 


(125 


1) 


»/ 


0 


.3660098 


) , 


/« 


(125 


2) 


*/ 


0 


.1164153 


) 


/« 


(125 


3) 


»/ 


0 


.1309514 


)- 


/* 


(126 


0) 


»/ 


0 


.3807664 


)* 


/* 


(126 


1) 


*/ 


0 


.3690505 


) , 


/* 


(126 


2) 


*/ 


0 


.1192317 


) 


/* 


(126 


3) 


*/ 


0 


.1279526 


)* 


/* 


(127 


0) 


*/ 


0 


.3779066 


). 


/» 


(127 


1) 


*/ 


0 


.3720476 


), 


/« 


(127 


2) 


*/ 


0 


.1220931 


) 


/» 


(127 


3) 


»/ 


0 


.1250000 


)* 


/* 


(128 


0) 


*/ 


0 


.3750000 




/» 


(128 


1) 


»/ 


0 


.3750000 




/* 


(128 


2) 


»/ 


0 


.1250000 


) 


/* 


(128 


3) 


»/ 



File : Work\CrtPrt\Stonehnd\Scbezble .cpp 



#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0xlf41, 
scBezFactor ( 0x5f3e, 
scBezFactor ( 0x60be, 
scBezFactor ( 0x20cl, 

#endif 



0.1220931 ), 

0.3720476 ), 

0.3779066 ), 

0.1279526 ) 



(129 0) */ 

(129 1) »/ 

(129 2) */ 

(129 3) »/ 



#ifdef SubDivl28 
{ 

scBezFactor ( 0xle85, 

scBezFactor ( 0x5e7a, 

scBezFactor ( 0x6179, 

scBezFactor ( 0x2186, 

#endif 



0.1192317 ), 

0.3690505 ), 

0.3807664 ), 

0.1309514 ) 



/» 
/* 
/* 



(130 0) »/ 

(130 1) */ 

(130 2) */ 

(130 3) »/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
j°l scBezFactor ( 

m 

fU 

#ffiief SubDiv64 



{ 



XX 



Oxldcd, 
0x5db2, 
0x6232, 
0x224d, 



i ! J scBezFactor ( 
^ j scBezFactor ( 
scBezFactor ( 
tss scBezFactor ( 
}^ 



0xldl7, 
Qx5ce8, 
0x62e7, 
0x2318, 



0.1164153 ), 

0.3660098 ), 

0.3835782 ), 

0.1339967 ) 



0.1136436 ), 

0.3629265 ), 

0.3863411 ), 

0.1370888 ) 



(131 0) */ 

(131 1) */ 

(131 2) »/ 

(131 3) */ 



(132 0) */ 

(132 1) «/ 

(132 2) */ 

(132 3) */ 



#Mef SubDiv256 

{ M 

jf«. scBezFactor ( 0xlc65, 
zt scBezFactor ( 0x5clb, 
£ J scBezFactor ( 0x6399, 
scBezFactor ( 0x23e5, 

#endif 



0.1109163 ), 

0.3598017 ), 

0.3890539 ), 

0.1402281 ) 



/» 



(133 0) */ 

(133 1) */ 

(133 2) «/ 

(133 3) */ 



#ifdef SubDivl28 
{ 

scBezFactor ( Ox lbb5 , 

scBezFactor ( 0x5b4c, 

scBezFactor ( 0x6447, 

scBezFactor ( 0x24b6, 

#endif 



0.1082330 ), 

0.3566365 ), 

0.3917155 ), 

0.1434150 ) 



/* 
/* 



(134 0) */ 

(134 1) •/ 

(134 2) */ 

(134 3) »/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 0xlb08, 
scBezFactor ( 0x5a7a, 
scBezFactor ( 0x64f2, 
scBezFactor ( 0x258a, 

#endif 



0.1055933 ), 

0.3534320 ), 

0.3943250 ), 

0.1466498 ) 



/» 
/» 
/* 



(135 0) »/ 

(135 1) •/ 

(135 2) «/ 

(135 3) »/ 
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#ifdef SubDiv32 
{ 

scBezFactor( OxlaSe, 

scBezFactor( 0x59a6, 

scBezFactor( 0x659a, 

scBezFactor( 0x2662, 

#endif 



0.1029968 ), 

0.3501892 ), 

0.3968811 ), 

0.1499329 ) 



/» (136 0) */ 

/» (136 1) •/ 

/• (136 2) */ 

/« (136 3) »/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0xl9b6, 

scBezFactor( 0x58cf, 

scBezFactor( 0x663d, 

scBezFactor( 0x273c, 

#endif 



0.1004433 ), 

0.3469092 ), 

0.3993829 ), 

0.1532646 ) 



/» (137 0) »/ 

/* (137 1) */ 

/* (137 2) */ 

/» (137 3) »/ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x1912, 
scBezFactor( Qx57f5, 
scBezFactor( 0x66de, 
scBezFactor( 0x2819, 

#endif 

[3 

#iflef SubDiv256 

t en 

^scBezFactor( 0x1870, 

' ^scBezFactor ( 0x57 la , 

s3scBezFactor ( 0x677a , 

[;|scBezFactor( 0x28fa, 

#en~dif 



0.0979323 ), 

0.3435931 ), 

0.4018292 ), 

0.1566453 ) 



0.0954636 ), 

0.3402420 ), 

0.4042191 ), 

0.1600754 ) 



/» 
/* 



/* 



(138 0) */ 

(138 1) •/ 

(138 2) •/ 

(138 3) •/ 



(139 0) */ 

(139 1) »/ 

(139 2) •/ 

(139 3) »/ 



#if4ef SubDiv64 

^scBezFactorf 0xl7dl J 

{ JscBezFactor ( 0x563c , 

L^scBezFactor( 0x6813, 

!!IscBezFactor( 0x29de, 



0.0930367 ), 
0.3368568 ), 
0.4065514 ), 
0.1635551 ) 



(140 0) */ 

(140 1) */ 

(140 2) »/ 

(140 3) «/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x1734, 
scBezFactor( 0x555c, 
scBezFactor( 0x68a8, 
scBezFactor( 0x2ac6, 

}. 

#endif 



0.0906512 ), 
0.3334388 ), 
0.4088250 ), 
0.1670850 ) 



/* (141 0) «/ 

/* (141 1) «/ 

/* (141 2) */ 

/* (141 3) »/ 



#ifdef SubDivl28 
{ 

scBezFactor( 0x169b, 

scBezFactor( 0x547a, 

scBezFactor( 0x6939, 

scBezFactor( Ox2bbO, 

#endif 



0.0883069 ), 
0.3299890 ), 
0.4110389 ), 
0.1706653 ) 



/» (142 0) */ 

/* (142 1) »/ 

/« (142 2) */ 

/* (142 3) •/ 



#ifdef SubDiv256 
{ 
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#endif 



34 
083 



scBezFactor ( 0x1604, 0. 

scBezFactor ( 0x5396, 0. 

scBezFactor ( 0x69c6, 0.4131920 

scBezFactor ( 0x2c9e, 0.1742963 





/* 


(143 


0) 


*/ 


). 


/« 


(143 


1) 


*/ 


)* 


/» 


(143 


2) 


»/ 


) 


/» 


(143 


3) 


»/ 



#ifdef SubDivl6 
{ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x1570, 


0. 


0837402 


)* 


/» 


(144 


0) 


»/ 


scBezFactor ( 


0x52b0, 


0. 


3229980 


)* 


/« 


(144 


1) 


*/ 


scBezFactor ( 


0x6a50, 


0. 


4152832 


). 


/* 


(144 


2) 


»/ 


scBezFactor ( 


0x2d90, 


0. 


1779785 


) 


/* 


(144 


3) 


«/ 



scBezFactor( 


0xl4de, 


0. 


,0815172 






(145 


0) 


»/ 


scBezFactor ( 


0x51c8, 


0, 


,3194591 


)* 


/* 


(145 


1) 


«/ 


scBezFactor ( 


0x6ad4, 


0. 


.4173115 


)* 


/» 


(145 


2) 


»/ 


scBezFactor ( 


0x2e84, 


0. 


,1817122 


) 


/» 


(145 


3) 


*/ 



#endif 



#ifdef SubDivl28 

{ £3 

*^ scBezFactor( 
;f scBezFactor ( 
[H scBezFactor ( 
^[j scBezFactor ( 

lefcfiif 

id 

#ii£aef SubDiv256 

2 scBezFactor ( 
f 3 scBezFactor ( 
■^1 scBezFactor ( 
. ~i scBezFactor ( 

#epidif 

C3 

#itlef SubDiv64 
{ 



#endif 



#ifdef SubDiv256 
{ 



#endif 



0xl44f , 


0. 


0793338 


). 


/* 


(146 


0) 


*/ 


OxSOde, 


0. 


3158927 


)* 


/» 


(146 


1) 


«/ 


0x6b55, 


0. 


4192758 


>* 


/* 


(146 


2) 


*/ 


0x2f7c, 


0. 


1854978 


) 


/» 


(146 


3) 


*/ 



0xl3c2, 


0, 


.0771897 


)• 


/* 


(147 


0) 


»/ 


0x4ff2, 


0. 


,3122998 


)* 


/» 


(147 


1) 


»/ 


0x6bd2, 


0. 


.4211749 


)* 


/» 


(147 


2) 


»/ 


0x3078, 


0. 


.1893355 


) 


/» 


(147 


3) 


»/ 



scBezFactor ( 


0x1338, 


0, 


.0750847 


). 


/* 


(148 


0) 


*/ 


scBezFactor ( 


0x4f05, 


0, 


,3086815 


)- 


/* 


(148 


1) 


«/ 


scBezFactor { 


0x6c4a, 


0. 


,4230080 


)♦ 


/» 


(148 


2) 


»/ 


scBezFactor ( 


0x3177, 


0. 


.1932259 


) 


/* 


(148 


3) 


»/ 



scBezFactor ( 


0xl2bl, 


0. 


,0730183 




/« 


(149 


0) 


*/ 


scBezFactor ( 


0x4el7, 


0. 


3050389 




/* 


(149 


1) 


*/ 


scBezFactor ( 


0x6cbd, 


0. 


.4247738 




/* 


(149 


2) 


«/ 


scBezFactor ( 


0x3279, 


0. 


,1971691 


) 


/» 


(149 


3) 


»/ 



#ifdef SubDivl28 
{ 

scBezFactor ( Ox 122c, 

scBezFactor ( 0x4d26, 

scBezFactor ( 0x6d2d, 



)- 


/» 


(150 


0) 


*/ 




/« 


(150 


1) 


»/ 


). 


/* 


(150 


2) 


»/ 



File : Work\CrtPrt\Stonehnd\Scbezble .cpp 

scBezFactor( 0x337f, O.^^B57 ) 
#endif 



/* (150 3) «/ 



scBezFactor ( 


0xlla9, 


0. 


.0689998 


). 


/* 


(151 


0) 


*/ 


scBezFactor ( 


0x4c35, 


0. 


,2976850 




/» 


(151 


1) 


«/ 


scBezFactor ( 


0x6d97, 


0. 


,4280993 




/* 


(151 


2) 


*/ 


scBezFactor ( 


0x3489, 


0. 


,2052159 


) 


/« 


(151 


3) 


*/ 



#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDiv32 
{ 



#endif 



scBezFactor ( 


Ox 112a, 


0. 


0670471 




/* 


(152 


0) 


«/ 


scBezFactor ( 


0x4b42, 


0. 


2939758 


), 


/* 


(152 


1) 


»/ 


scBezFactor ( 


0x6dfe, 


0. 


4296570 




/* 


(152 


2) 


«/ 


scBezFactor ( 


0x3596, 


0. 


2093201 


) 


/* 


(152 


3) 


»/ 



#ifdef SubDiv256 
{ 

scBezFactor ( OxlOac, 
scBezFactor ( 0x4a4d, 
j 2 scBezFactor ( 0x6e5f, 
" Z scBezFactor ( 0x36a 6 , 

#djfdif 

fy 

#i^ef SubDivl28 

{Id 

scBezFactor ( 0x1031, 
scBezFactor ( 0x4957, 
* scBezFactor ( 0x6ebc, 
s scBezFactor ( 0x37ba, 

H3 

u 

#if£def SubDiv256 

{ U 



#endif 





/* 


(153 


0) 


*/ 




/» 


(153 


1) 


*/ 




/* 


(153 


2) 


*/ 


) 


/» 


(153 


3) 


»/ 





/* 


(154 


0) 


*/ 


)* 


/* 


(154 


1) 


*/ 




/» 


(154 


2) 


*/ 


) 


/» 


(154 


3) 


*/ 



0x0fb8, 


0. 


0614107 


). 


/* 


(155 


0) 


*/ 


0x4861, 


0. 


2827325 


)- 


/» 


(155 


1) 


»/ 


0x6f 13, 


0. 


4338965 


). 


/» 


(155 


2) 


*/ 


0x38d2, 


0. 


2219602 


) 


/* 


(155 


3) 


»/ 



#ifdef SubDiv64 
{ 



#endif 



scBezFactor ( 


0x0f42, 


0. 


.0596046 


). 


/* 


(156 


0) 


»/ 


scBezFactor ( 


0x4769, 


0. 


.2789497 




/* 


(156 


1) 


*/ 


scBezFactor ( 


0x6f66, 


0, 


.4351616 




/* 


(156 


2) 


»/ 


scBezFactor ( 


0x39ed, 


0, 


.2262840 


) 


/* 


(156 


3) 


«/ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


OxOece, 


0 


.0578343 


). 


/* 


(157 


0) 


«/ 


scBezFactor ( 


0x4670, 


0 


.2751512 




/« 


(157 


1) 


*/ 


scBezFactor ( 


0x6fb4, 


0 


.4363509 




/» 


(157 


2) 


*/ 


scBezFactor ( 


0x3b0c r 


0 


.2306636 


) 


/* 


(157 


3) 


*/ 
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#ifdef SubDivl28 
{ 



#endif 



scBezFactor( 


OxOeSc, 


0. 


.0560994 




/» 


(158 


0) 


»/ 


scBezFactor ( 


0x4576, 


0. 


,2713380 


). 


/« 


(158 


1) 


*/ 


scBezFactor ( 


0x6ffd, 


0, 


,4374633 




/» 


(158 


2) 


»/ 


scBezFactor ( 


0x3c2f , 


0. 


,2350993 


) 


/* 


(158 


3) 


»/ 



#ifdef SubDiv256 
{ 



}. 



scBezFactor ( 


OxOded, 


0. 


,0543995 




/« 


(159 


0) 


*/ 


scBezFactor ( 


0x447b, 


0. 


.2675112 




/» 


(159 


1) 


*/ 


scBezFactor ( 


0x7041, 


0. 


.4384977 




/« 


(159 


2) 


*/ 


scBezFactor ( 


0x3d55, 


0. 


.2395915 


) 


/* 


(159 


3) 


*/ 



#endif 



#ifdef SubDiv8 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#ei£d|if 

3 

#i£fef SubDiv256 

. =scBezFactor( 
;=fecBezFactor( 
l\=scBezFactor( 
scBezFactor ( 

#emfif 

C3 

#ifid#f SubDivl2B 

ScBezFactor ( 
^TBcBezFactorf 
£=scBezFactor( 
ScBezFactor ( 

#endif 



0xQd80, 
0x4380, 
0x7080, 
0x3e80, 



OxOdlS, 
0x4283, 
0x70b9, 
Ox 3 fad. 



OxOcac, 
0x4186, 
0x70ed, 
0x40df , 





/* 


(160 


0) 


•/ 




/♦ 


(160 


1) 


*/ 




/« 


(160 


2) 


«/ 


) 


/» 


(160 


3) 


*/ 



)* 


/« 


(161 


0) 


«/ 


). 


/• 


(161 


1) 


*/ 


). 


/* 


(161 


2) 


«/ 


) 


/* 


(161 


3) 


«/ 



)* 


/* 


(162 


0) 


*/ 


). 


/* 


(162 


1) 


*/ 


). 


/« 


(162 


2) 


*/ 


) 


/» 


(162 


3) 


«/ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x0c46, 


0. 


,0479434 




/* 


(163 


0) 


*/ 


scBezFactor ( 


0x4088, 


0. 


,2520896 




/• 


(163 


1) 


«/ 


scBezFactor ( 


0x7 11c, 


0. 


.4418344 




/* 


(163 


2) 


«/ 


scBezFactor ( 


0x4214, 


0. 


,2581326 


) 


/* 


(163 


3) 


*/ 



#ifdef SubDiv64 
{ 



scBezFactor ( 


OxObel, 


0. 


.0464134 




/* 


(164 


0) 


»/ 


scBezFactor ( 


0x3f8a, 


0. 


.2482109 




/« 


(164 


1) 


*/ 


scBezFactor ( 


0x7145, 


0. 


,4424629 




/» 


(164 


2) 


*/ 


scBezFactor ( 


0x434e, 


0. 


.2629128 


) 


/• 


(164 


3) 


*/ 



#endif 



#ifdef SubDiv256 
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{ 

scBezFactor( 0x0b7f, 

scBezFactor( Qx3e8c 

scBezFactor( 0x7168, 

scBezFactor( 0x448b, 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor( OxOblf, 

scBezFactor( Qx3d8d, 

scBezFactor( 0x7186, 

scBezFactor( 0x45cc, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( OxOacl, 
scBezFactor( 0x3c8d, 
scBezFactor( 0x719f, 
scBezFactor( 0x4711, 

>. 

#endif 



#ifitef SubDiv32 

-$cBezFactor( 0x0a66, 

|HcBezFactor( 0x3b8e, 

P^cBezFactor( 0x7 lb2, 

j|cBezFactor( 0x4 8 5a, 
}* U 



#if»f SubDiv256 
{ £ 

jf ]|cBezFactcir( OxOaOc, 

tScBezFactor( 0x3a8e, 

. IcBezFactor ( 0x7 lbe , 

t£cBezFactor( Ox 4 9a 6, 

>* M 

#end4f 

f ^ 

#ifdef SubDivl28 
{ 

scBezFactor( 0x09b4, 

scBezFactor( 0x398e, 

scBezFactor( 0x7 lc5, 

scBezFactor( 0x4af7, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactorf 0x095e, 

scBezFactor( 0x388e, 

scBezFactor( 0x7 lc6, 

scBezFactor( Ox4c4c, 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor( 0x090b, 
scBezFactor( 0x378e, 



0 


.0449T63 


)* 


/* 


(165 


0) 


«/ 


0 


.2443251 


), 


/« 


(165 


1) 


*/ 


0 


.4430071 




/» 


(165 


2) 


*/ 


0 


.2677515 


) 


/* 


(165 


3) 


*/ 


0 


.0434518 




/» 


(166 


0) 


*/ 


0 


.2404332 


), 


/« 


(166 


1) 


«/ 


0 


.4434657 


). 


/« 


(166 


2) 


*/ 


0 


.2726493 


) 


/» 


(166 


3) 


«/ 


0 


.0420194 


)* 


/« 


(167 


0) 


*/ 


0 


.2365363 


), 


/* 


(167 


1) 


»/ 


0 


.4438378 


)* 


/» 


(167 


2) 


*/ 


0 


.2776064 


) 


/» 


(167 


3) 


*/ 


0 


.0406189 


)* 


/* 


(168 


0) 


*/ 


0 


.2326355 


), 


/» 


(168 


1) 


•/ 


0 


.4441223 


). 


/« 


(168 


2) 


*/ 


0 


.2826233 


) 


/« 


(168 


3) 


*/ 


0 


.0392498 


)* 


/» 


(169 


0) 


*/ 


0 


.2287318 


), 


/» 


(169 


1) 


*/ 


0 


.4443181 


)♦ 


/« 


(169 


2) 


*/ 


0 


.2877002 


) 


/» 


(169 


3) 


*/ 


0 


.0379119 


)* 


/* 


(170 


0) 


*/ 


0 


.2248263 


), 


/* 


(170 


1) 


*/ 


0 


.4444242 


)* 


/« 


(170 


2) 


»/ 


0 


.2928376 


) 


/* 


(170 


3) 


*/ 


0 


.0366047 


)* 


/* 


(171 


0) 


«/ 


0, 


.2209201 


), 


/» 


(171 


1) 


»/ 


0 


.4444394 


). 


/* 


(171 


2) 


«/ 


0, 


.2980358 


) 


/* 


(171 


3) 


*/ 


0, 


.0353279 


)* 


/* 


(172 


0) 


»/ 


0, 


.2170143 


)- 


/* 


(172 


1) 


«/ 
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scBezFactor( 0x7 lcl, 
scBezFactor ( 0x4da4, 

#endif 



0.4 
0.30 



1 )' 



(172 2) »/ 
(172 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor ( Qx08b9, 

scBezFactor( 0x368e, 

scBezFactor ( 0x7 lb6, 

scBezFactor ( 0x4f01, 

#endif 





/* 


(173 


0) 


*/ 




/* 


(173 


1) 


*/ 




/* 


(173 


2) 


*/ 


) 


/* 


(173 


3) 


»/ 



#ifdef SubDivl28 
{ 



#endif 



scBezFactor ( 


0x0869, 


0. 


0328641 




/* 


(174 


0) 


*/ 


scBezFactor ( 


0x358e, 


0, 


2092080 


)* 


/« 


(174 


1) 


*/ 


scBezFactor ( 


Qx71a5, 


0. 


4439292 




/» 


(174 


2) 


»/ 


scBezFactor ( 


0x5062, 


0. 


3139987 


) 


/» 


(174 


3) 


»/ 



#ifdef SubDiv256 
{ 



0x081b, 


0. 


.0316764 




/» 


(175 


0) 


*/ 


0x348f , 


0, 


,2053097 


). 


/» 


(175 


1) 


*/ 


0x718d, 


0, 


.4435703 




/» 


(175 


2) 


»/ 


0x51c7, 


0, 


.3194436 


) 


/* 


(175 


3) 


*/ 



#ifa£f SubDivl6 
{ 

scBezFactor ( 
-5cBezFactor( 
5 scBezFactor ( 
f scBezFactor/ 

#endif 

M 

#ifdef SubDiv256 

ScBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



0x07d0, 
0x3390, 
0x7170, 
0x5330, 



0.4431152 





/* 


(176 


0) 


»/ 


). 


/* 


(176 


1) 


*/ 


)♦ 


/* 


(176 


2) 


*/ 


) 


/» 


(176 


3) 


*/ 



0x0785, 


0, 


.0293874 




/» 


(177 


0) 


*/ 


0x3291, 


0. 


.1975281 




/* 


(177 


1) 


*/ 


0x714b, 


0. 


.4425629 




/* 


(177 


2) 


*/ 


0x549d, 


0. 


,3305216 


) 


/* 


(177 


3) 


*/ 



#ifdef SubDivl28 
{ 



#endif 



scBezFactor ( 


0x073d, 


0. 


0282855 




/* 


(178 


0) 


*/ 


scBezFactor ( 


0x3192, 


0. 


1936469 




/* 


(178 


1) 


»/ 


scBezFactor ( 


0x7121, 


0. 


4419122 




/* 


(178 


2) 


*/ 


scBezFactor ( 


0x560e, 


0. 


3361554 


) 


/* 


(178 


3) 


»/ 



#ifdef SubDiv256 
{ 

scBezFactor ( 0x06£7, 
scBezFactor ( 0x3095, 
scBezFactor ( 0x70ef, 
scBezFactor ( 0x5783, 



1897736 





/* 


(179 


0) 


*/ 




/* 


(179 


1) 


«/ 




/* 


(179 


2) 


*/ 


) 


/* 


(179 


3) 


»/ 



File: Work\CrtPrt\Stonehnd\Scbezble . cpp 
#endif 



scBezFactor ( 


0x06b2, 


0, 


.0261650 


)* 


/» 


(180 


0) 


*/ 


scBezFactor ( 


0x2f97, 


0. 


.1859093 


). 


/» 


(180 


1) 


»/ 


scBezFactor ( 


0x70b8, 


0. 


.4403114 


). 


/* 


(180 


2) 


»/ 


scBezFactor ( 


0x58fd, 


0. 


.3476143 


) 


/» 


(180 


3) 


«/ 



#ifdef SubDiv64 
{ 



#endif 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x066f , 


0, 


.0251457 




/» 


(181 


0) 


*/ 


scBezFactor ( 


0x2e9b, 


0. 


.1820549 




/» 


(181 


1) 


*/ 


scBezFactor ( 


0x7079, 


0. 


.4393592 




/* 


(181 


2) 


*/ 


scBezFactor ( 


Ox 5a 7b, 


0, 


.3534401 


) 


/* 


(181 


3) 


*/ 



#ifdef SubDivl28 
{ 



#endfjf 

in 



scBezFactor ( 


0x062e, 


0. 


.0241532 


)* 


/» 


(182 


0) 


*/ 


scBezFactor ( 


0x2d9f , 


0. 


,1782117 


)* 


/» 


(182 


1) 


»/ 


scBezFactor ( 


0x7034, 


0. 


.4383044 


)* 


/» 


(182 


2) 


»/ 


scBezFactor ( 


OxSbfd, 


0. 


,3593307 


) 


/» 


(182 


3) 


•/ 



OxOSef , 
0x2ca4, 
0x6fe8, 
0x5d83, 



#if4ef SubDiv256 

{ ?2 

"^sbBezFactor ( 
fsbBezFactor( 
^scBezFactor ( 
,siBezFactor( 

#enddf 

13 



#ifdeT SubDiv32 

{ ly 

^pBezFactor( 0x05b2, 

jjs£BezFactor( 0x2baa, 

ScBezFactor ( 0x6f96, 

©£BezFactor( OxSfOe, 

#endif 





/* 


(183 


0) 


*/ 


). 


/* 


(183 


1) 


*/ 


)♦ 


/» 


(183 


2) 


»/ 




/* 


(183 


3) 


«/ 





/» 


(184 


0) 


*/ 


). 


/» 


(184 


1) 


*/ 


)- 


/* 


(184 


2) 


«/ 


) 


/» 


(184 


3) 


»/ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x0576, 


0. 


.0213332 


). 


/« 


(185 


0) 


*/ 


scBezFactor ( 


0x2ab0, 


0, 


.1667592 


)* 


/* 


(185 


1) 


*/ 


scBezFactor ( 


0x6f 3c, 


0. 


.4345134 


)* 


/* 


(185 


2) 


»/ 


scBezFactor ( 


0x609c, 


0. 


.3773943 


) 


/* 


(185 


3) 


*/ 



#ifdef SubDivl28 
{ 



#endif 



scBezFactor ( 


0x053b, 


0. 


.0204444 


). 


/* 


(186 


0) 


«/ 


scBezFactor ( 


0x29b8, 


0. 


,1629710 


)* 


/* 


(186 


1) 


»/ 


scBezFactor ( 


0x6edb, 


0. 


.4330373 


)* 


/« 


(186 


2) 


«/ 


scBezFactor ( 


0x6230, 


0. 


,3835473 


) 


/• 


(186 


3) 


»/ 
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#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDiv64 
{ 



scBezFactor ( 


0x0503, 


0. 


,0195807 




/* 


(187 


0) 


*/ 


scBezFactor ( 


0x28cl, 


0. 


,1591993 




/* 


(187 


1) 


*/ 


scBezFactor ( 


0x6e73, 


0. 


.4314532 




/* 


(187 


2) 


*/ 


scBezFactor ( 


0x63c7, 


0. 


3897669 


) 


/* 


(187 


3) 


»/ 



scBezFactor ( 


0x04cc, 


0. 


.0187416 


). 


/« 


(188 


0) 


«/ 


scBezFactor ( 


0x27cb, 


0. 


.1554451 


)* 


/» 


(188 


1) 


*/ 


scBezFactor ( 


0x6e04, 


0. 


.4297600 


). 


/» 


(188 


2) 


*/ 


scBezFactor ( 


0x6563, 


0. 


.3960533 


) 


/» 


(188 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x0496, 


0 


.0179269 


)* 


/« 


(189 


0) 


*/ 


scBezFactor ( 


0x26d6, 


0 


.1517095 


)* 


/« 


(189 


1) 


«/ 


scBezFactor ( 


0x6d8e, 


0 


.4279566 


). 


/* 


(189 


2) 


*/ 


scBezFactor ( 


0x6704, 


0 


.4024070 


) 


/» 


(189 


3) 


*/ 



#if<fcg* SubDivl28 

{ U 

&TpBezFactor( 0x0463, 
ScBezFactor ( 0x25e2, 
^BezFactor ( 0x6dll, 
ScBezFactor ( 0x68a8, 

}* u 

#endif 



). 


/» 


(190 


0) 


•/ 


)• 


/* 


(190 


1) 


«/ 


). 


/* 


(190 


2) 


»/ 


) 


/* 


(190 


3) 


*/ 



#ifctof SubDiv256 



{ 



C3, 



#endt* 

C3 

#ifdef SubDiv4 
{ 



#endif 



0x0430, 


0, 


.0163689 




/« 


(191 


0) 


*/ 


0x24f0, 


0. 


.1442984 


)* 


/* 


(191 


1) 


*/ 


Ox 6c 8c, 


0, 


.4240152 


)- 


/« 


(191 


2) 


»/ 


0x6a52, 


0, 


.4153175 


) 


/» 


(191 


3) 


»/ 



scBezFactor ( 


0x0400, 


0. 


.0156250 


)> 


/* 


(192 


0) 


«/ 


scBezFactor ( 


0x2400, 


0. 


,1406250 


)* 


/♦ 


(192 


1) 


»/ 


scBezFactor ( 


0x6c00, 


0. 


.4218750 


). 


/« 


(192 


2) 


*/ 


scBezFactor ( 


0x6c00, 


0. 


,4218750 


) 


/* 


(192 


3) 


*/ 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x03d0, 


0, 


.0149040 




/* 


(193 


0) 


«/ 


scBezFactor ( 


0x2310, 


0. 


1369745 




/» 


(193 


1) 


*/ 


scBezFactor ( 


0x6b6c, 


0. 


,4196203 




/« 


(193 


2) 


*/ 


scBezFactor ( 


0x6db2, 


0. 


,4285012 


) 


/» 


(193 


3) 


»/ 



#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 0x03a2, 



0.0142055 ), 



/« (194 0) •/ 
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scBezFactor( 0x2223, 

scBezFactor ( 0x6ad0, 

scBezFactor ( 0x6f69, 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0376, 
scBezFactor ( 0x2137, 
scBezFactor ( 0x6a2d , 
scBezFactor ( 0x7124, 

}* 

#endif 



#ifdef SubDiv64 
{ 

scBezFactor( 0x034b, 
scBezFactor ( 0x204c, 
scBezFactor ( 0x6983, 
scBezFactor ( 0x72e4, 

}. 

#endif 



#ifdef SubDiv256 
{ 

£|cBezFactor( 0x0322, 
JicBezFactor( 0xlf64, 
*gcBezFactor( 0x68d0, 
C§cBezFactor( Ox 7 4a 8, 

>* ru 

#en^4jf 

u 

#ifddf SubDivl28 

{ [i 

"ScBezFactor ( 0x02fa, 
-scBezFactor ( 0xle7d, 
£ scBezFactor ( 0x6816, 
t§c8ezFactor( 0x7671, 

}' i .i 
#ends? = f 

#if|^f SubDiv256 

scBezFactor ( 0x02d3, 

scBezFactor ( 0xld98, 

scBezFactor( 0x6754, 

scBezFactor ( 0x783f, 

}* 

#endif 



#ifdef SubDiv32 
{ 

scBezFactor ( 0x02ae, 

scBezFactor ( Ox lcb6 , 

scBezFactor ( 0x668a, 

scBezFactor ( Ox 7a 1 2 , 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0289, 

scBezFactor ( Ox lbd5 , 

scBezFactor ( 0x65b7, 

scBezFactor ( Ox 7be 9 , 



0. 


i33^m 


). 


/* 


(194 


1) 


*/ 


0. 


417^^2 


)* 


/* 


(194 


2) 


*/ 


0. 


4351964 


) 


/* 


(194 


3) 


*/ 


0. 


0135291 




/* 


(195 


0) 


»/ 


0. 


1297465 




/* 


(195 


1) 


»/ 


0. 


4147634 




/« 


(195 


2) 


*/ 


0. 


4419610 


) 


/» 


(195 


3) 


»/ 


0. 


0128746 


)* 


/* 


(196 


0) 


»/ 


0. 


1261711 


), 


/* 


(196 


1) 


»/ 


0. 


4121590 


), 


/* 


(196 


2) 


»/ 


0. 


4487953 


) 


/* 


(196 


3) 


*/ 


0. 


0122415 


)* 


/* 


(197 


0) 


»/ 


0. 


1226229 


)* 


/* 


(197 


1) 


»/ 


0. 


4094358 


). 


/« 


(197 


2) 


»/ 


0. 


4556997 


) 


/* 


(197 


3) 


*/ 


0. 


0116296 




/* 


(198 


0) 


*/ 


0. 


1191030 




/* 


(198 


1) 


*/ 


0. 


4065928 




/* 


(198 


2) 


*/ 


0. 


4626746 


) 


/* 


(198 


3) 


»/ 


0. 


0110384 


)* 


/* 


(199 


0) 


*/ 


0. 


1156123 




/* 


(199 


1) 


*/ 


0. 


4036290 


), 


/« 


(199 


2) 


*/ 


0. 


4697203 


) 


/» 


(199 


3) 


»/ 


0. 


0104675 




/* 


(200 


0) 


*/ 


0. 


1121521 


)* 


/« 


(200 


1) 


«/ 


0. 


4005432 


), 


/* 


(200 


2) 


*/ 


0. 


4768372 


) 


/» 


(200 


3) 


»/ 


0. 


0099167 




/* 


(201 


0) 


»/ 


0. 


1087233 




/« 


(201 


1) 


»/ 


0. 


3973344 




/* 


(201 


2) 


*/ 


0. 


4840255 


) 


/* 


(201 


3) 


»/ 
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#endif 



#ifdef SubDivl28 
{ 

scBezFactor( 0x0267, 
scBezFactor( Qxlaf6, 
scBezFactor( 0x64dd, 
scBezFactor( 0x7dc4, 

}* 

#endif 



0.0093856 ), 

0.1053271 ), 

0.3940015 ), 

0.4912858 ) 



/» 
/* 
/* 



(202 0) */ 

(202 1) */ 

(202 2) »/ 

(202 3) 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0245, 
scBezFactor( Ox la la, 
scBezFactor( Ox63fa, 
scBezFactor( 0x7fa5, 

#endif 



0.0088738 ), 

0.1019645 ), 

0.3905434 ), 

0.4986183 ) 



/* 
/* 



(203 0) •/ 

(203 1) •/ 

(203 2) */ 

(203 3) */ 



#ifdef SubDiv64 
{ 

scBezFactorf 0x0225, 

scBezFactor( 0x1940, 

_scBezFactor( 0x630f, 

[gcBezFactor( 0x8 18a, 



0.0083809 ), 

0.0986366 ), 

0.3869591 ), 

0.5060234 ) 



/* 
/« 



(204 0) */ 

(204 1) */ 

(204 2) 

(204 3) */ 



#ifdaf SubDiv256 
{ M 

*scBezFactor( 0x0206, 
^cBezFactar( 0x1868, 
f §cBezFactor ( 0x62 lc , 
'lcBezFactor( 0x8374, 

h L 



0.0079066 ), 
0.0953445 ), 
0.3832474 ), 
0.5135015 ) 



/m 
/* 



(205 0) •/ 

(205 1) */ 

(205 2) «/ 

(205 3) »/ 



tfif&fcf SubDivl28 
{ M 

r|cBezFactor( 0x0 le8. 



c 



#endif 



icBezFactor( 0x1793, 
icBezFactor( 0x6120, 
scBezFactor( 0x8563, 



0.0074506 ), 

0.0920892 ), 

0.3794074 ), 

0.5210528 ) 



/* 
/* 



(206 0) */ 

(206 1) */ 

(206 2) */ 

(206 3) */ 



#ifdef SubDiv256 
{ 

scBezFactor( OxOlcb, 
scBezFactor( 0xl6c0, 
scBezFactor( 0x60 lc, 
scBezFactor( 0x8757, 

}* 

#endif 



0.0070124 ), 
0.0888718 ), 
0.3754379 ), 
0.5286779 ) 



(207 0) »/ 

(207 1) */ 

(207 2) »/ 

(207 3) «/ 



#ifdef SubDivl6 
{ 

scBezFactor{ OxOlbO, 
scBezFactor( OxlSfO, 
scBezFactor( OxSflO, 
scBezFactor( 0x8950, 

}* 

#endif 



0.0065918 ), 
0.0856934 ), 
0.3713379 ), 
0.5363770 ) 



(208 0) */ 

(208 1) »/ 

(208 2) •/ 

(208 3) */ 
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#ifdef SubDiv256 




{ 



scBezFactor( 


0x0195, 


0, 


,0061883 


)* 


/* 


(209 


0) 


*/ 


scBezFactor ( 


0x1522, 


0. 


,0825550 


). 


/« 


(209 


1) 


*/ 


scBezFactor ( 


OxSdfa, 


0. 


.3671063 


)* 


/* 


(209 


2) 


*/ 


scBezFactor( 


0x8b4d, 


0. 


,5441504 


) 


/• 


(209 


3) 


»/ 



#endif 



#ifdef SubDivl26 
{ 



scBezFactor( 


0x017c, 


0. 


0058017 


)* 


/• 


(210 


0) 


*/ 


scBezFactor ( 


0x1457, 


0. 


0794578 


)* 


/» 


(210 


1) 


«/ 


scBezFactor ( 


OxScdc, 


0. 


3627419 


)* 


/* 


(210 


2) 


*/ 


scBezFactor ( 


0x8d4f , 


0. 


5519986 


) 


/« 


(210 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x0163, 


0. 


0054315 


)* 


/« 


(211 


0) 


*/ 


scBezFactor ( 


0xl3Bf , 


0. 


0764027 


)* 


/* 


(211 


1) 


*/ 


scBezFactor ( 


0x5bb5, 


0. 


3582439 


)* 


/* 


(211 


2) 


*/ 


scBezFactor ( 


0x8f57, 


0. 


5599219 


) 


/» 


(211 


3) 


»/ 



#endif 

£3 

#if&jf SubDiv64 

f ScBezFactor { 
t scBezFactor ( 
'^cBezFactor( 
*bcBezFactor( 

}• 

#endif 



0x014c, 


0. 


,0050774 


). 


/* 


(212 


0) 


*/ 


0xl2c9, 


0. 


,0733910 


)* 


/* 


(212 


1) 


»/ 


0x5a86, 


0. 


.3536110 


)* 


/« 


(212 


2) 


«/ 


0x9163, 


0. 


,5679207 


) 


/» 


(212 


3) 


»/ 



#if6lf SubDiv256 
I |cBezFactor( 



#en 



0x0136, 


0. 


0047390 


). 


/« 


(213 


0) 


»/ 


0x1207, 


0. 


0704235 


)* 


/» 


(213 


1) 


*/ 


0x594d, 


0. 


3488422 


)* 


/» 


(213 


2) 


*/ 


0x9374, 


0. 


5759953 


) 


/» 


(213 


3) 


*/ 



#ifdef SubDivl28 
{ 



scBezFactor ( 


0x0121, 


0, 


.0044160 




/* 


(214 


0) 


*/ 


scBezFactor ( 


0x1147, 


0, 


.0675015 


). 


/» 


(214 


1) 


»/ 


scBezFactor ( 


0x580c, 


0. 


.3439364 




/* 


(214 


2) 


*/ 


scBezFactor ( 


0x958a, 


0, 


.5841460 


) 


/* 


(214 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


OxOlOd, 


0. 


0041080 


)* 


/» 


(215 


0) 


*/ 


scBezFactor ( 


Ox 108b, 


0. 


0646260 


)* 


/» 


(215 


1) 


»/ 


scBezFactor ( 


0x56cl, 


0. 


3388926 


). 


/* 


(215 


2) 


*/ 


scBezFactor ( 


0x97a5, 


0. 


5923733 


) 


/* 


(215 


3) 


»/ 



#endif 



#ifdef SubDiv32 
{ 



f 
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Pg: 31 



scBezFactor( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

}. 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

}* 

#endif 



#ifdef SubDiv256 

{ C3 

^s&cBezFactor ( 
■^cBezFactor ( 
-^cBezFactor( 
f&BezFactor( 

#end£f 



#ifcfe1f SubDiv64 

{ r 

^scBezFactor ( 
CsfeBezFactor ( 
^sjcBezFactor ( 
asicBezFactor( 

#en4ff 

q 

#ifl?f SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

}* 

#endif 



#ifdef SubDivl28 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 
scBezFactor ( 
scBezFactor ( 



OxOOfa, 
0x0fd2, 
0x556e, 
0x99c6, 



0x00e7, 
OxOflb, 
0x5411, 
0x9beb, 



0x00d6, 
0x0e68, 
0x52ab, 
0x9el5, 



OxOOcS, 
0x0db9, 
0x5 13b, 
0xa045, 



0x00b6, 
OxOdOd, 
0x4fc2, 
0xa279, 



0x00a7, 
0x0c64, 
Qx4e40, 
Qxa4b3, 



0x0099, 
OxQbbf , 
0x4cb4, 
0xa6f2, 



QxQ08c, 
Ox 0b Id, 
0x4blf , 



0.06l7fBl ), 

0.3337097 ), 
0.6006775 ) 



0.0035357 ), 

0.0590188 ), 

0.3283866 ), 

0.6090589 ) 



0.0032706 ), 
0.0562892 ), 
0.3229222 ), 
0.6175179 ) 



0.0030192 )„ 

0.0536104 ), 

0.3173155 ), 

0.6260549 ) 



0.0027809 ), 

0.0509834 ), 

0.3115654 ), 

0.6346703 ) 



0.0025555 ), 

0.0484094 ), 

0.3056708 ), 

0.6433643 ) 



0.0023427 ), 

0.0458894 ), 

0.2996306 ), 

0.6521373 ) 



0.0021420 ), 
0.0434244 ), 
0.2934439 ), 



/» 
/« 
/» 
/• 


(216 
(216 
(216 
(216 


0) 
1) 
2) 
3) 


*/ 
*/ 
*/ 
»/ 


/* 
/» 
/* 
/* 


(217 
(217 
(217 
(217 


0) 
1) 
2) 
3) 


»/ 
«/ 
«/ 
*/ 


/* 
/» 
/» 
/* 


(218 
(218 
(218 
(218 


0) 
1) 
2) 
3) 


*/ 
»/ 
*/ 
»/ 


/* 

/* 
/* 
/» 


(219 
(219 
(219 
(219 


0} 
1) 
2) 
3) 


»/ 
«/ 
»/ 
*/ 


/« 
/* 
/* 
/* 


(220 
(220 
(220 
(220 


0) 
1) 
2) 
3) 


»/ 
*/ 
*/ 
»/ 


/» 
/» 

/* 
/* 


(221 
(221 
(221 
(221 


0) 
1) 
2) 
3) 


»/ 
«/ 
*/ 
*/ 


/» 

/* 
/« 
/» 


(222 
(222 
(222 
(222 


0) 
1) 
2) 
3) 


»/ 
*/ 
*/ 
*/ 


/» 
/* 
/» 


(223 
(223 
(223 


0) 
1) 
2) 


*/ 
*/ 
»/ 
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scBezFactor( 0xa936, 
tfendif 



0.66 



/» (223 3) »/ 



#ifdef SubDiv8 
{ 



}- 



scBezFactor ( 


0x0080, 


0, 


.0019531 




/* 


(224 


0) 


*/ 


scBezFactor( 


0xQa8Q, 


0. 


.0410156 




/* 


(224 


1) 


»/ 


scBezFactor ( 


0x4980, 


0, 


.2871094 




/* 


(224 


2) 


*/ 


scBezFactor ( 


0xab80, 


0. 


,6699219 


) 


/» 


(224 


3) 


«/ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x0074, 


0, 


.0017757 


)* 


/* 


(225 


0) 


«/ 


scBezFactor ( 


0x09e5, 


0. 


,0386640 


), 


/* 


(225 


1) 


«/ 


scBezFactor ( 


0x47d7, 


0, 


.2806261 


). 


/* 


(225 


2) 


»/ 


scBezFactor ( 


Oxadce, 


0, 


,6789342 


) 


/* 


(225 


3) 


*/ 



#endif 



#ifdef SubDivl28 
{ 

scBezFactor( 0x0069, 

scBezFactor ( 0x094f, 

CsbBezFactor ( 0x4624, 

^BezFactor( 0xb022, 

#en|i!f 



)* 


/* 


(226 


0) 


*/ 


). 


/* 


(226 


1) 


*/ 


). 


/» 


(226 


2) 


*/ 


) 


/* 


(226 


3) 


»/ 



#if<{# SubDiv256 

'scBezFactor ( OxOOSf, 
ffcBezFactor( 0x08bd, 
= scBezFactor( 0x4467, 
!$cBezFactor( 0xb27b, 

K U 
#endiif 





/« 


(227 


0) 


»/ 


). 


/* 


(227 


1) 


•/ 


). 


/* 


(227 


2) 


*/ 




/» 


(227 


3) 


*/ 



■3-=? 

#ifd!f SubDiv64 

{ C3 



f ScBezFactor ( 
^scBezFactorf 


0x0055, 


0. 


.0013084 


). 


/• 


(228 


0) 


»/ 


0x082e, 


0, 


,0319633 


), 


/« 


(228 


1) 


*/ 


scBezFactor ( 


0x42al, 


0. 


.2602730 


). 


/» 


(228 


2) 


*/ 


scBezFactor ( 


0xb4da, 


0, 


,7064552 


) 


/* 


(228 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 

scBezFactor ( 0x004c, 
scBezFactor ( 0x07a4, 
scBezFactor ( 0x40d0, 
scBezFactor( 0xb73e, 

#endif 





/* 


(229 


0) 


*/ 




/» 


(229 


1) 


«/ 




/« 


(229 


2) 


*/ 


) 


/» 


(229 


3) 


»/ 



#ifdef SubDivl2B 
{ 



scBezFactor ( 


0x0044, 


0. 


.0010476 




/» 


(230 


0) 


*/ 


scBezFactor ( 


0x071e, 


0. 


.0278020 




/« 


(230 


1) 


»/ 


scBezFactor ( 


0x3ef 5, 


0. 


.2459407 




/* 


(230 


2) 


»/ 


scBezFactor ( 


0xb9a7, 


0. 


,7252097 


) 


/* 


(230 


3) 


*/ 



#endif 
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scBezFactor ( 


0x003d, 


0, 


.0009313 


)* 


/* 


(231 


0) 


*/ 


scBezFactor ( 


0x069b, 


0. 


.0258163 


)* 


/* 


(231 


1) 


*/ 


scBezFactor ( 


0x3dll, 


0, 


.2385423 


). 


/* 


(231 


2) 


»/ 


scBezFactor ( 


OxbclS, 


0. 


.7347102 


) 


/* 


(231 


3) 


»/ 



#ifdef SubDiv256 
{ 



#endif 



#ifdef SubDiv32 
{ 



#endif 



#ifdef SubDiv256 
{ 



#©n<£iJ 



scBezFactor ( 


0x0036, 


0.0008240 


)* 


/* 


(232 


0) 


»/ 


scBezFactor ( 


0x061e, 


0. 


,0238953 




/* 


(232 


1) 


«/ 


scBezFactor ( 


0x3b22, 


0, 


.2309875 




/« 


(232 


2) 


*/ 


scBezFactor ( 


OxbeSa, 


0. 


,7442932 


) 


/» 


(232 


3) 


»/ 



scBezFactor ( 


0x002f, 


0. 


.0007252 




/» 


(233 


0) 


«/ 


scBezFactor ( 


0x05a4, 


0. 


.0220401 




/» 


(233 


1) 


«/ 


scBezFactor ( 


0x3928, 


0, 


.2232755 




/« 


(233 


2) 


*/ 


scBezFactor ( 


0xcl03, 


0, 


,7539592 


) 


/» 


(233 


3) 


*/ 



#if<fit SubDivl28 

{ ry 

.scBezFactor ( 0x0029, 
^pBezFactor( 0x052f, 
y=BezFactor( 0x3724, 
"scBezFactor ( 0xc382, 

>' P 
#en<fff 



)* 


/* 


(234 


0) 


»/ 


). 


/» 


(234 


1) 


»/ 


)• 


/* 


(234 


2) 


»/ 


) 


/* 


(234 


3) 


»/ 



#ifdef SubDiv256 

{ s 1 

^BezFactor ( 0x0024, 
McBezFactor( 0x04be, 
fspBezFactor ( 0x3516, 
s IscBezFactor( 0xc606, 

}. tJ 

#endif 



)* 


/« 


(235 


0) 


»/ 


)' 


/« 


(235 


1) 


*/ 


). 


/* 


(235 


2) 


*/ 


) 


/* 


(235 


3) 


«/ 



#ifdef SubDiv64 
{ 



#endif 



scBezFactor ( 


OxOOlf, 


0, 


.0004768 


)- 


/» 


(236 


0) 


«/ 


scBezFactor ( 


0x0452, 


0. 


,0168800 


). 


/» 


(236 


1) 


*/ 


scBezFactor ( 


0x32fd, 


0. 


.1991844 


)* 


/« 


(236 


2) 


*/ 


scBezFactor ( 


0xc890, 


0. 


,7834587 


) 


/» 


(236 


3) 


*/ 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x001a, 


0. 


.0004088 




/* 


(237 


0) 


»/ 


scBezFactor ( 


0x03ea, 


0. 


.0152988 




/« 


(237 


1) 


«/ 


scBezFactor ( 


0x30da, 


0. 


.1908322 




/» 


(237 


2) 


*/ 


scBezFactor ( 


0xcb20, 


0. 


.7934602 


) 


/» 


(237 


3) 


*/ 



#ifdef SubDivl28 
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scBezFactor ( 


0x0016, 


0, 


.0003fT6 


). 


/» 


(238 


0) 


«/ 


scBezFactor ( 


0x0387, 


0, 


,0137887 




/* 


(238 


1) 


*/ 


scBezFactor ( 


0x2eac, 


0. 


.1823173 




/» 


(238 


2) 


«/ 


scBezFactor ( 


OxcdbS, 


0, 


.8035464 


) 


/* 


(238 


3) 


*/ 



#endif 



#ifdef SubDiv256 
{ 



#endif 



scBezFactor ( 


0x0013, 


0 


.0002928 


)- 


/• 


(239 


0) 


»/ 


scBezFactor ( 


0x0329, 


0 


.0123509 




/« 


(239 


1) 


»/ 


scBezFactor ( 


0x2c73, 


0 


.1736385 




/» 


(239 


2) 


»/ 


scBezFactor ( 


0xd04f , 


0 


.8137178 


) 


/» 


(239 


3) 


»/ 



#ifdef SubDivl6 
{ 



scBezFactor ( 


0x0010, 


0. 


.0002441 




/* 


(240 


0) 


«/ 


scBezFactor ( 


0x02d0, 


0, 


,0109863 




/* 


(240 


1) 


»/ 


scBezFactor ( 


0x2a30, 


0, 


.1647949 




/* 


(240 


2) 


*/ 


scBezFactor ( 


0xd2f0, 


0. 


.8239746 


) 


/» 


(240 


3) 


*/ 



#endif 



#ifdtff SubDiv256 
{ *3 

f scBezFactor ( OxOOOd, 
£scBezFactor( 0x027b, 
Sfe : cBezFactor( 0x27el„ 
^|cBezFactor( 0xd595, 

K M 
#endtf 





/* 


(241 


0) 


»/ 


). 


/» 


(241 


1) 


»/ 


). 


/« 


(241 


2) 


*/ 


) 


/♦ 


(241 


3) 


»/ 



#ifdef SubDivl28 



#en§3f 

#ifdef SubDiv256 
{ 



0x000a, 


0. 


0001636 




/» 


(242 


0) 


»/ 


0x022b, 


0. 


0084815 




/» 


(242 


1) 


*/ 


0x2588, 


0. 


1466088 




/» 


(242 


2) 


*/ 


0xd841, 


0. 


8447461 


) 


/» 


(242 


3) 


»/ 



scBezFactor ( 


0x0008, 


0. 


.0001310 




/* 


(243 


0) 


*/ 


scBezFactor ( 


OxOlel, 


0. 


.0073434 




/« 


(243 


1) 


«/ 


scBezFactor ( 


0x2323, 


0. 


.1372642 




/» 


(243 


2) 


«/ 


scBezFactor ( 


0xdaf2, 


0. 


.8552615 


) 


/* 


(243 


3) 


»/ 



#endif 



#ifdef SubDiv64 
{ 



#endif 



scBezFactor ( 


0x0006, 


0. 


.0001030 


)* 


/* 


(244 


0) 


*/ 


scBezFactor ( 


0x019b, 


0. 


.0062828 




/* 


(244 


1) 


*/ 


scBezFactor ( 


0x20b4, 


0. 


.1277504 




/* 


(244 


2) 


m/ 


scBezFactor ( 


0xdda9, 


0. 


.8658638 


) 


/« 


(244 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0005, 
scBezFactor ( 0x015b, 



0.0000793 ), 
0.0053009 ), 



/* (245 0) •/ 
/* (245 1) «✓ 
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scBezFactor( 0xle39, 
scBezFactor ( 0xe065, 

#endif 



0.11 
0.876' 



63TO4 



4 ) 



/» 
/* 



(245 2) »/ 
(245 3) */ 



tfifdef SubDivl28 
{ 



#endif 



#ifdef SubDiv256 
{ 



scBezFactor ( 


0x0003, 


0. 


.0000596 


)- 


/* 


(246 


0) 


*/ 


scBezFactor ( 


0x0120, 


0. 


,0043988 


). 


/* 


(246 


1) 


*/ 


scBezFactor ( 


0xlbb3, 


0, 


.1082110 


)* 


/* 


(246 


2) 


»/ 


scBezFactor ( 


0xe328, 


0. 


.8873305 


) 


/» 


(246 


3) 


»/ 



scBezFactor ( 


0x0002, 


0, 


,0000435 




/» 


(247 


0) 


«/ 


scBezFactor ( 


OxOOea, 


0. 


.0035775 




/* 


(247 


1) 


»/ 


scBezFactor ( 


0x1922, 


0, 


,0981833 


>* 


/» 


(247 


2) 


*/ 


scBezFactor ( 


Oxe5fO, 


0. 


.8981957 


) 


/» 


(247 


3) 


«/ 



#endif 



#ifdef SubDiv32 
{ 



0x0002, 


0. 


0000305 




/» 


(248 


0) 


*/ 


OxOOba, 


0. 


0028381 




/* 


(248 


1) 


*/ 


0x1686, 


0. 


0879822 




/* 


(248 


2) 


*/ 


0xe8be, 


0. 


9091492 


) 


/* 


(248 


3) 


«/ 



#if|gf SubDiv256 

CfcBezFactor ( 
^scBezFactor ( 
^cBezFactor( 
* ScBezFactor ( 

#end ; jf 

#iffi|f SubDivl28 

{ C3 

* "scBezFactor ( 
scBezFactor ( 
scBezFactor ( 
scBezFactor ( 

#endif 



0x0001, 


0 


.0000204 




/» 


(249 


0) 


«/ 


0x008e, 


0 


.0021817 




/» 


(249 


1) 


*/ 


0xl3de, 


0 


.0776065 




/* 


(249 


2) 


«/ 


0xeb91, 


0 


.9201913 


) 


/* 


(249 


3) 


»/ 



0x0000, 
0x0069, 
0x112a, 
0xee6b, 





/» 


(250 


0) 


«/ 


), 


/* 


(250 


1) 


«/ 




/* 


(250 


2) 


*/ 


) 


/* 


(250 


3) 


*/ 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0000, 

scBezFactor( 0x0049, 

scBezFactor ( 0x0e6b, 

scBezFactor ( Ox f 14a, 

#endif 





/* 


(251 


0) 


*/ 


)- 


/« 


(251 


1) 


*/ 


)* 


/* 


(251 


2) 


*/ 


) 


/» 


(251 


3) 





#ifdef SubDiv64 
{ 



scBezFactor ( 


0x0000, 


0. 


.0000038 




/* 


(252 


0) 


*/ 


scBezFactor ( 


0x002f , 


0. 


.0007210 






(252 


1) 


*/ 


scBezFactor ( 


OxObaO, 


0. 


.0454216 




/« 


(252 


2) 


*/ 


scBezFactor ( 


0xf42f , 


0, 


.9538536 


) 




(252 


3) 


«/ 
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#endif 




#ifdef SubDiv256 
{ 



scBezFactor( 


0x0000, 


0. 


.0000016 


). 


/« 


(253 


0) 


«/ 


scBezFactorf 


0x001a, 


0. 


.0004072 


)^ 


/« 


(253 


1) 


«/ 


scBezFactor( 


0x08ca, 


0. 


.0343371 


). 


/* 


(253 


2) 


•/ 


scBezFactorf 


0xf71a, 


0. 


.9652541 


) 


/» 


(253 


3) 


*/ 



#endif 

#ifdef SubDivl28 
{ 



scBezFactor( 


0x0000, 


0, 


.0000005 




/« 


(254 


0) 


»/ 


scBezFactor( 


0x000b, 


0. 


.0001817 




/* 


(25^4 


1) 


*/ 


scBezFactorf 


0xQ5e8, 


0, 


.0230727 




/* 


(254 


2) 


«/ 


scBezFactorf 


OxfaOb, 


0. 


.9767451 


) 


/» 


(254 


3) 


«/ 



#endif 



#ifdef SubDiv256 
{ 

scBezFactor( 0x0000, 
scBezFactor( 0x0002, 
scBezFactor( 0x02fa, 
scBezFactor( 0xfd02, 

}, C3 

#endlf 



0.0000001 ), 

0.0000456 ), 

0.0116274 ), 

0.9883270 ) 



/* 


(255 


0) 


*/ 


/» 


(255 


1) 


*/ 


/* 


(255 


2) 


*/ 


/» 


(255 


3) 


»/ 



en 



{ 



} 



iis one is needed by all sub divisions */ 



0x0000, 


0, 


.0000000 


)♦ 


/« 


(256 


0) 


*/ 


0x0000, 


0, 


.0000000 




/• 


(256 


1) 


*/ 


0x0000, 


0, 


.0000000 




/* 


(256 


2) 


*/ 


0x0000, 


1, 


.0000000 


) 


/* 


(256 


3) 


*/ 



■4 
U 

u 

£3 
Q 
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... 

File: SCBEZIER.C 



SHeader: /Projects/Toolbox/ct/SCBEZIER.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: vectorizes beziers 

Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
Ml rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scbezier.h" 
^include "scmem.h" 
#include <limits.h> 

struct SCBezVertex { 
short x ; 
Clhort y; 

£fs 

fy 

extern scBezBlendValue bezblend[]; 

static void BezCompute( scVertex* dstV, 

const scVertex* srcV ) ; 

£3 

/* aaaooBBBaeaBaaBBBaBBBBBBaaBBanaaaoBOBDaseaBaoeoDsBBaBBBCBBaanosDnts */ 

/* bount the number of vertices in the vertex list */ 
inldne long CountVerts( const scVertex* verts ) 

[long numVerts; 

[3 

fjor ( numVerts = 1; verts->f PointType !» eFinalPoint; verts++, numVerts++ ) 
return numVerts; 

} 



/* BaaaBBBaBBDoeonBSBBaBaBaaBBaBBaSBBBBBnaBsnaaaaDaDaBBaBSBaBBBBaBaBoaB * / 

/* count the number of bezier curves in a vertex list */ 

inline long CountBezCurves ( const scVertex* verts ) 
{ 

long numCurves; 

for ( numCurves = 0; verts->f PointType != eFinalPoint; ) { 

if ( verts->f PointType eBezControlPoint && (verts+1) ->f PointType eBezControl Point ) { 
numCurves++; 
verts +» 2; 

} 

else 

verts++; 

} 

return numCurves; 

} 

/ * BeDaeaaeaBBaoaoofflDaaaaaaaBBBBBBnsoaaeaBBaaaaooeaaaaaaaeBaaaaaBoaoaaa * / 

/* process the list vectorizing the beziers into straight lines */ 
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void BEZVectorizePoly( scVertex*&^^ dstV, 

const scVertex* srcV ) 



{ 



scVertex* vList; 

int i ; 

Bool process; 

long numPoints; 

long numCurves; 

scVertex bezVectorsf scBezBlendSize + 2 ]; 

numPoints » CountVerts( srcV ); 
numCurves - CountBezCurves ( srcV ) ; 

if ( numCurves 0 ) 
return; 

long segments «■ numPoints + scBezBlendSize » numCurves; 

dstV » vList » (scVertex*)MEMAllocPtr( segments * sizeof( scVertex ) ) 

for ( process ■ true; process; ) { , 

switch ( srcV->fPointType ) { 

case eFinalPoint: 

process - false; 
default: 

*vList++ « *srcV++; 

break ; 

C3 

j^g case eBezControlPoint : 

// insure we have two points - if not process normally 
l\[ if ( (srcV+l)->fPointType « eBezControlPoint ) { 

fU BezCompute( bezVectors, srcV - 1 ); 

for ( i - 1; i < scBezBlendSize - 1; i++ ) 

*vList++ « bezVectors [ i ] ; 
srcV +* 2; 



J } 

else 



} 



*vList++ « *srcV++; 
break; 



} 



u 

iJ 

#if4ff scBezFixed 

/» it is assumed that the list has enough space before entering 
* this routine 
»/ 

static void RenderBezier ( SCVertex* dstV, 

scPointType type, 
SCBezVertex* draw , 
short minX, 
short minY ) 

{ 

size_t i; 

for ( i » 0; i < scBezBlendSize; i++„ draw++ ) { 

if ( i mm o ) 

dstV->fPointType » type; 

else 

dstV->fPointType « eCornerPoint ; 

dstV->x - (long)( draw->x - minX ) << 16; 
dstV->y « (long)( draw->y - minY ) << 16; 
dstV++; 
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SCBezVertex *SCBezCompDrawList ( SCBezVertex* 

SCBezVertex* 

{ 

SCBezVertex* pDraw; 
scBezBlendValue* pBlend; 
short i ; 



theVerts , 
drawList ) 



drawList [0] » theVerts [0]; 

drawList [scBezBlendSize- 1] » theVerts[3]; 

pBlend - bezblend + 1; 
pDraw « drawList + 1; 



for (i - 0; i < scBezBlendSize-2; i++) { 

pDraw->x » (short) (( (long) theVerts [0] .x * (ulong)pBlend->ca 
+ (long) theVerts [ 1] .x * (ulong)pBlend->cb 
+ (long) theVerts [2] .x * (ulong)pBlend->cc 
+ (long) theVerts [3] .x * (ulong)pBlend->cd) >> 16); 
pDraw->y "(short) (( (long) theVerts [0] .y * (ulong)pBlend->ca 
(long) theVerts [ 1] .y * (ulong)pBlend->cb 



+ 
+ 
+ 



pBlend++; 
pDraw++ ; 



(long) theVerts [2] .y 
(long) theVerts [3] .y 



(ulong)pBlend->cc 
(ulong)pBlend->cd) >> 16); 



} 

_return drawList; 



static void BezCompute( SCVertex* 



JlSCBezVertex 
^SCBezVertex 
Clregister int 
E scPointType 
^short 
^short 



dstV, 

const SCVertex* srcV ) 
v[4J; 

drawList [scBezBlendSize ] ; 
i; 

fPointType; 

minX; 

minY; 



[jpointType - srcV-> fPointType; 

Vl /m P ut source into a 16 bit quantity so that 
53 * we can perform fixed point multiplies on it, 
fg * and force bezier into positive coordinate space 

* so that the fixed point multiplies with blending 

* values will work 
*/ 



minX - minY - SHRTJ-1AX; 
for ( i - 0; i < 4; i++ ) { 



} 



v[i] .x 
minX 
v[i] .y 
minY 
srcV++; 



(short) ( srcV->x >> 16 
« MIN( minX, v[i] .x ) ; 
» (short) (srcV->y >> 16); 
» MIN( minY, v[i] .y ); 



0 ); 
0 ); 



i++ ) { 



minX - ( minX < 0 ? -minX 
minY - ( minY < 0 ? -minY 
if ( minX | | minY ) { 
for (i»0;i<4; 

v[i ] .x +» minX; 

v (i] -y + ° minY; 

} 

} 

SCBezCompDrawList ( v„ drawList ) ; 
RenderBezier( dstV, pointType, drawList, 



minX, minY ) , 
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#endif 

/» snsoaoesetisBDBaQMEEaaaBsooaaoaaiisasaBBSDBiiDi 

#ifdef scBezREAL 

static void BezCompute( scVertex* dstV, 

const scVertex* srcV ) 

{ 

int i ; 

dstV[0] » srcV[0]; 

dstV[scBezBlendSize-l] - srcV[3]; 



for ( i » 1; i < scBezBlendSize - 1; i++ ) { 

dstV[i].x = scRoundMP( srcV[0].x • bezblend[i ] .ca + 

srcV[l].x • bezblend [i ] .cb + 
srcV[2].x * bezblend [i ] .cc + 
srcV[3].x * bezblend [i ] .cd ); 

dstV[i].y - scRoundMP( srcV[0].y * bezblend [i ] .ca + 

srcV[l].y * bezblend [i ] .cb + 
srcV[2] .y * bezblend [i ] .cc + 
srcV[3].y * bezblend [i ] .cd ); 

dstV[i ] . fPointType - eCornerPoint ; 

} 



#erftflf 
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File: SCBEZIER.H 



$Header: /Pro jects/Toolbox/ct /SCBEZIER.H 2 5/30/97 8:44a Wmanis $ 
Contains: size of bezier sub-division factors 



Written by: Man is 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



/ 



tfifndef JJJSCBEZIER 
^define _H_SCBEZIER 

#i nc 1 ude M sc types . h " 



vo 



BEZVectorizePoly ( scVertex *&„ const scVertex « ); 



/•ftest one of these defined determines the number of vectors 
**t!hat will be created by sub-dividing the bezier curver 

#dQfiine SubDiv2 2 
#defiine SubDiv4 
#d$Sine SubDiv8 



#de'Pine SubDivl6 



(SubDiv2 
(SubDiv4 
(SubDiv8 



2) 
2) 
2) 



#i£ 0 

#de£ine SubDiv32 
#de#ine SubDiv64 
#d&dine SubDivl28 
#de§ine SubDiv256 
#endif 



(SubDivl6 * 
(SubDiv32 « 
(SubDiv64 * 
(SubDivl28 



2) 
2) 
2) 

* 2) 



//#$efine scBezFixed 
#de?ine scBezREAL 



#ifdef scBezFixed 

#define scBezFactor( x, y ) x 
struct scBezBlendValue { 

ushort ca; 

ushort cb; 

ushort cc; 

ushort cd; 

}; 

#ifdef scBezREAL 

#error "can't define both" 
#endif 
#endif 



#ifdef scBezREAL 

#define scBezFactor( x„ y ) y 
struct scBezBlendValue { 

REAL ca; 

REAL cb; 

REAL cc ; 

REAL cd ; 

}; 

#ifdef scBezFixed 

#error "can't define both" 
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#endif 
#endif 

#if defined ( SubDiv256 ) 
^define scBezBlendSize (SubDiv256 + 
#elif defined ( SubDivl28 ) 
#define scBezBlendSize 
#elif defined ( SubDiv64 ) 
#define scBezBlendSize 
#elif defined( SubDiv32 ) 
#define scBezBlendSize 
#elif defined( SubDivl6 ) 
#define scBezBlendSize 
#elif defined ( SubDiv8 ) 
#define scBezBlendSize 
#elif defined ( SubDiv4 ) 
#define scBezBlendSize 
#elif defined( SubDiv2 ) 
#define scBezBlendSize 
#elif ! defined ( scBezBlendSize ) 
#define scBezBlendSize 0 
tfendif 



1) 

(SubDivl28 + 1) 
(SubDiv64 + 1) 
(SubDiv32 + 1) 
(SubDivl6 



(SubDivB + 
(SubDiv4 + 
(SubDiv2 + 



1) 
1) 
1) 
1) 



#end if /* H SCBEZIER •/ 
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File: SCBREAK.C 



SHeader: /Projects/Too lbox/ct/Scbreak .cpp 6 5/30/97 8:45a Wmanis $ 
Contains: line breaker 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc . 



#include 
^include 
^include 
#include 
#incj.ude 
# include 
#iaglude 
#iTCjXude 

fit 



"scbreak.h" 
"sccolumn .h" 
"scglobda.h" 
"scstcach .h" 
"scctype ,h" 
"scmem.h" 
"screfdat ,h" 
"sccallbk.h" 



//VSOOLBOX BEHAVIOR - force first word on line to break if it does not fit 
tfde^Qine scForceBreakFirstWord 

#deijine MAXLEADVALS 50 

MiQine MAXBREAKVALS 100 

#iLdef LETTERSPACE 

#d£Fine LETTERSPACE ( ch ) ( (ch) ->character! «scWordSpace\ 

* vl 6c£c ( (ch)+l) ->character! -scWordSpace ) 



/•lint -esym(534„BRKLineDecision) */ 



static MicroPoint 
static Bool 

static eBreakEvent 
static eBreakEvent 

static Bool 

static void 



static 
static 
static 
static 
static 
static 
static 
static 
static 
static 
static 
static 
static 



eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 
eBreakEvent 



BRKNextTokenWidth( CharRecordP, UCS2 ); 
TabBreakChar( UCS2 theCh, UCS2 breakCh ); 

BRKLoopBody( void ); 
BRKTheLoop ( void ); 

BRRStillMoreChars( CharRecordP „ long ); 

BRKChar Japanese ( void ); 

bmBRKWordSpace ( void ); 
bmBRKFixSpace( void ); 
bmBRRRe 1 Space ( void ); 
bmBRKEndStream ( void ); 
bmBRKChar( void ); 
bmBRKHardRetum ( void ); 
bmBRKQuad{ void ); 
bmBRKField( void ); 
bmBRKVertTab ( void ); 
bmBRKTab( void ); 
bmBRKFillSpace( void ); 
bmBRKRule ( void ); 
bmBRKHyphen( void ); 
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static void 
static void 
static void 
static void 
static MicroPoint 



static CandBreak* 
static CandBreak* 
static void 

static CandBreak* 
static CandBreak* 



BRRDropCapCon?TT5l ( MicroPoint, MicroPoint ); 
BRKPlaceLine( scMuPoint&, MicroPointSc, const scFlowDir& ); 
BRRJustifyLine( void ); 
BRRSpecial ( ushort ) ; 
BRRRagControl ( CharRecordP , 

MicroPoint, MicroPoint, 

MicroPoint, TypeSpec, ushort, short ); 

BRKLineDecisionJust ( void ); 
BRKLineDecisionRag( void ); 

BRKSetCharlndent ( CharRecordP, long, long, MicroPoint ); 

BRKHyphenateRag ( void ); 
BRKHyphenate Just ( void ); 



static void 

#ifdef scForceBreakFirstWord 
static void 
#endif 

static short 



static void 

static void 
static void 
static CharRecordP 
static MicroPoint 

static TypeSpec 

static MicroPoint 

static void 



BRKAddHyphens ( CandBreak* , CandBreak* ) ; 
irstWord 

BRRForceHyphens ( CandBreak*, CandBreak* ); 
BRKPerformDiscHyphen ( CharRecordP, CharRecordP, Hyphen* ); 
BRKAd j ustWordSpace ( CharRecordP, GlyphSize, long, long ); 



BRKRepa irLast Space ( CharRecordP, long ); 
BRKRepairFinalSpace( void ); 
BRRLastCharOnLine( CharRecordP ); 
BRKHangPuncRightAdjust ( void ); 

BRKUpdateSpec ( scSpecRecord* ) ; 

BRKRernCorrection( CharRecordP ); 

BRRMaxLineVals( scLINERef Data&, MicroPoint, eFntBaseline, MicroPoint ); 



/* 

S3 

CandBreak : : CandBreak ( ) 

{ ^ 

^Init(); 
} N 



vol3 CandBreak : : Init ( ) 

{ t: 



breakCount 


s 


0; 


startCount 


s 


0; 


streamCount 


E 


0; 


wsSpaceCount 




0; 


spaceCount 


B 


0; 


trail ingSpaces 


« 


0; 


chCount 


B 


0; 


f illSpCount 


s 


0; 


lineVal 


s 


0; 


breakVal 




eU 


minGlue 


B 


0; 


optGlue 




0; 


maxGlue 


B 


0; 


curBox 




0; 


fHangable 




0; 


theChRec 




0; 


specChanged 




0; 


spec. clear () ; 






specRec 


8 


0; 



/••••*»*«•»**«•»•••«••»•••••••••••*«•*«*«»**««»•*••*•»•»•••«*»»•••«••««•*/ 

//if the break candidates fill we remove the first entry and shuffle the 
// candidates down since the first candidate is no longer a real candidate 
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static void Shuf f leBreakCandidatel 
{ 

gbrS.candBreak [0] .Init () ; // force the clearing of a spec 

// shuffle the array down into the spot we just cleared 
SCraemmove( gbrS.candBreak, gbrS . candBreak+ 1 , sizeof (CandBreak) * (MAXBREAKVALS- 1L ) ); 

// zero out the last entry which is now doubled because we copied it into 
// the next to last entry 
SCmemset( gbrS.candBreak + ( MAXBREAKVALS - 1 ), 0, sizeof (CandBreak) ); 

// initialize the last entry 
gbrS.candBreak [MAXBREAKVALS- 1] .Init () ; 

} 

/•*»**••»•«•*«»««•»*•*»«•••*•**•*»***••••••«•*•»•••••••••••• 

/* put the current break values into the candidate break array */ 

static void BRKSetCandBreak ( eBreakType breakType ) 
{ 

CandBreak «theBreak » gbrS.candBreak + gbrS .cB .breakCount ; 

*theBreak «» gbrS.cB; 

theBreak->breakVal « breakType; 

if ( breakType eHyphBreak ) 

theBreak->curBox += scCachedStyle: :GetCurrentCache ( ) .GetEscapement ( '-' ); 

_if ( gbrS.cB. breakCount >« (MAXBREAKVALS - 1 ) ) 
13 Shuf f leBreakCandidates ( ) ; 
, gelse 

* S gbrS . cB . breakCount++ ; 

ru 

static eBreakEvent BRKExitLoop ( ) 

{ N 

Q return measure_exceeded ; 

/**#e are passed in some characters & line attributes, break the line, 
•i performing justification, hyphenation, indents, etc. 

% 

eBfgakType 

BR^omanLineBreak( CharRecordP chRec, // the character array 

" long startCount, // # into char array to start the linebreak 

longfic count, // count into char array of end of line 

scLINERef Data& 1 ineData , 

short lineCount, 

short & 1 i nesHyphena ted , 

scSpecRecord** specRec , 



{ 



scXRect&, 
GlyphSize& letterSpace ) 

/* not a good idea to use register or auto variables that are used 

* across a call to setjmp/longjmp, they alter them when the previous 

* stack is restored 
*/ 

MicroPoint initialLead; 
eFntBaseline initialBaseline; 

gbrS.Init(); 

/« set up state variables •/ 

gbrS.gStartRec - gbrS.cB.theChRec • chRec + startCount; 
gbrS.fMaxLineVals[0] = gbrS . fZeroMaxLineVals; 
1 ineData. f InkExtents. Translate ( 1 ineData . f Org ); 
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^^^t at the start of every paragrap^^^ 



/• zero out the char 
if ( st art Count 0 ) 

gbrS.charlndent - LONG_MIN; 
gbrS . foundCharlndent - false; 

gbrS.cB.startCount » gbrS . cB . streamCount » (long)startCount ; 

gbrS . theSpecRec - *specRec; 

gbrS.cB.spec » gbrS.theSpecRec->spec() ; 

gbrS.originalMeasure » lineData . fComputedLen » lineData . fMeasure; 

/* this test is somewhat arbitrary, but we are reaching the 

* outer limits of our unit system, and what we probably 

* have encountered is a horizontally flexible column, 

* which should not be justified! ! 
•/ 

gbrS.allowJustif ication a ( gbrS.originalMeasure < (LONG„MAX-one_pica) ); 

/* a little bullet proofing */ 
if ( gbrS.originalMeasure < 0 ) 

gbrS.originalMeasure » one_pica » 2; 

if ( lineData. IsHorizontal () ) 

gbrS.colShapeRag « (eTSJust)( lineData . fColShapeType & eHorzFlex ? eRagLeft : -1 ); 

else 

gbrS.colShapeRag - (eTSJust)( lineData . fColShapeType & eVertFlex ? eRagLeft : -1 ); 

gbrS . lastLineLen - lineData . f LastLineLen; 

gbrS .theLineCount - lineCount; 

C3 gbrS.cB.breakVal ■ eCharBreak; 

gbrS.cB.lineVal « 0; 

pjjj gbrS .cB.breakCount - 0; 

Jj i! gbrS .cB.spaceCount * 0; 

fy gbrS.cB. trail ingSpaces » 0; 

^ gbrS .cB .wsSpaceCount * 0; 

gbrS.cB.fillSpCount * 0; 

•=4 gbrS.cB.chCount - 0; 

gbrS . letterSpaceAdj - 0; 
gbrS .rainRelPosition = 0; 
* m gbrS.cB.curBox = 0; 

I : 
•» ss 

initialLead - lineData . f InitialLead .GetLead () ; 

s.j initialBaseline ■ scCachedStyle : : GetCurrentCache ( ) .GetBaselineType( ); 

H gbrS.cB. opt Glue « gbrS .cB .minGlue ■» gbrS .cB .maxGlue » 0L; 

p gbrS.tmpMinGlue « gbrS .tmpOptGlue « gbrS .tmpMaxGlue « 0L; 

trf gbrS .cB .specChanged false; 

gbrS . f irstBox « gbrS. first Glue ■ true; 

gbrS . f NoS tart line « false; 

gbrS . fLastHangable - 0; 

gbrS . numTargetChars « 0; 
gbrS. totalTrailingSpace - 0; 

gbrS.desiredMeasure = : :BRKRagControl ( gbrS .cB . theChRec, lineData . f Org .x, lineData . f Org .y, 

lineData . fMeasure, gbrS.cB.spec, lineCount, linesHyphenat 

ed ); 

if ( gbrS.desiredMeasure <- 0 ) { 
if ( IgbrS.dcSet ) 

count =0; 
else { 

BRKPlaceLine( lineData . f Org , lineData . fComputedLen, scCachedStyle: : GetCurrentCache ( ) .Get 

Flowdir() ); 

count • gbrS . cB . streamCount - startCount; 

BRKMaxLineVals ( lineData, initialLead, initialBaseline, 0 ); 

} 

#if _DEBUG 

gbrS.Init() ; 
#endif 

return eCharBreak; 
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if ( gbrS .cB.theChRec->character a = scEndStream ) { 

if ( startCount==0 || (gbrS .cB . theChRec-1) ->character ! -scHardReturn ) { 

BRRPlaceLine ( lineData . fOrg, lineData . fComputedLen, scCachedStyle : :GetCurrentCache() .Get 

Flowdir() ); 

count - gbrS.cB .streamCount - startCount; 

BRKMaxLineVals( lineData, initialLead, initialBaseline, 0 ); 

#if .DEBUG 

gbrS.Init() ; 
#endif 

return eEndStreamBreak ; 

} 

} 

switch ( BRKTheLoop ( ) ) { 
case start_of_line : 
break; 

case end_of_streara_reached : 

/* the end of paragraph has been detected */ 
/» force justify the line, 

* NOTE: we should probably justify the line 

* if it is close to the desired measure 

* I THINK WE DO 
»/ 

BRKRepairFinal Space ( ) ; 
lineData . fRagSetting - gbrS .ef f ectiveRag; 
C3 if ( gbrS.colShapeRag I- (eTSJust)-l ) 

gbrS.eff ectiveRag « eRagRight; 

*;! if ( (gbrS.eff ectiveRag & eRagFlag) — • eRagJustif ied && ! gbrS .cB . f illSpCount ) { 

fU if ( ! (gbrS.eff ectiveRag & (int)eLastLineJust) ) 

lineData . fComputedLen = gbrS .cB .curBox + gbrS .cB .optGlue; 
else { 

if ( gbrS . allow Justification ) 

BRKJustifyLine( ) ; 
lineData . fComputedLen « gbrS .desiredMeasure; 

} 

lineData . f Org. x +- gbrS .brkLeftMargin; 
if ( gHiliteSpaces ) 

lineData . fComputedLen +» gbrS . totalTrailingSpace; 

} 

else 

f™ BRKPlaceLine( lineData . f Org, lineData . fComputedLen, scCachedStyle : :GetCurrentCache ( ) 

.gfetFlowdirO ); 

f5 count « gbrS . cB . streamCount - startCount; 

letterSpace ■ gbrS . letterSpaceAdj ; 
break ; 
default: 

case measure_exceeded : 

// the line measure has been exceeded, there are still more 

// characters in the paragraph 
lineData. fRagSetting » gbrS .eff ectiveRag; 
if ( gbrS.colShapeRag I- (eTSJust)-l ) 

gbrS.eff ectiveRag « eRagRight; 

if ( (gbrS.eff ectiveRag & eRagFlag) — eRagJustif ied && ! gbrS .cB . f illSpCount ) { 
if ( gbrS .allowJustif ication ) 

BRKJustifyLine( ) ; 
lineData . f Org -x +» gbrS .brkLeftMargin; 
lineData . fComputedLen - gbrS .desiredMeasure; 
if ( gHiliteSpaces ) 

lineData . fComputedLen +- gbrS .totalTrailingSpace; 

} 

else 

BRRPlaceLine ( 1 ineData . f Org , 1 ineData . fComputedLen , scCachedStyle : : GetCurrentCache ( ) 

.GetFlowdirf) ); 

count • gbrS .cB .streamCount - startCount; 

letterSpace « gbrS . letterSpaceAdj ; 
break ; 

} 
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/» increment the line hyphena^^B count „ used to prevent to many 
* consecutive lines hyphenatecr^ 
»/ 

if ( gbrS . lineHyphenated ) 
linesHyphenated +■ 1; 

else 

linesHyphenated - 0; 
/* set these - the leading may force the line to be replaced & rebroken */ 

BRKMaxLineVals ( lineData, initialLead, initialBasel ine, (gbrS.cB. theChRec- l)->character>°scWordS 
pace? (gbrS . cB . theChRec- 1 ) ->escapement : 0 ) ; 

for ( ; (long)gbrS.cB.streamCount > (*specRec+ 1) ->of fset ( ) ; (*specRec)++ ) 



if ( gbrS.foundCharlndent ) 

BRKSetCharlndent ( chRec, startCount, count, gbrS. letterSpaceAdj ); 

(gbrS.cB . theChRec- 1) ->f lags .SetLineBreak () ; 
scAssert( count >« 0 ); 




#if .DEBUG 

eBreakType ret - gbrS.cB.breakVal; 

gbrS.Init() ; 

return ret; 
#else 

return gbrS.cB.breakVal; 
#endif 

£3 
hi 

FU 

s@tic void BRKMaxLineVals ( scLINERefData& lineData, 

l"l MicroPoint initialLead, 

; w eFntBaseline baseline, 

% 4 MicroPoint lastChWidth ) 

{£3 

scAngle raaxAngle » lineData . fStartAngle; 

int i; 

EsJ scXRect dcRect; 

i a 

j if ( gbrS.dcSet ) { 

/* set the max extents of the drop char before we bash linedata, 
M « since the dc has to have the linedata that was in effect at 

[1 * the beginning of the line 

gbrS.dcInfo.dcMinY * MIbJ( gbrS .dclnfo .dcMinY, lineData . f Org .y + lineData . flnkExtents .yl ); 
gbrS.dcInfo.dcMaxY « gbrS .dclnfo. dcMaxY - ( gbrS.dcInfo.dcMinY + lineData . f Baseline Jump ); 
gbrS.dcInfo.dcMaxX - = gbrS -dclnfo .dcMinX; 

dcRect.Set( gbrS .dclnfo .dcMinX, gbrS.dcInfo.dcMinY, gbrS.dcInfo.dcMaxX, gbrS.dcInfo.dcMaxY ) 

} 

for ( i =» gbrS.cB.lineVal; i — ; ) { 

if ( initialLead < gbrS . fMaxLineVals [i } . fMaxLead .GetLead ( ) ) { 

if ( lineData.fEndLead. GetLead () < gbrS . fMaxLineVals [i ]. fMaxLead .GetLead ( ) ) { 
lineData . fEndLead * gbrS . fMaxLineVals [i ]. fMaxLead; 

lineData.SetMaxLeadSpec( gbrS . fMaxLineVals [i ] ,fSpecRec->spec( ) ); 

} 

} 

scXRect inkExtents( gbrS . fMaxLineVals [i ]. fMaxInkEx tents ); 
inkExtents. Translate ( 1 ineData . fOrg ); 
lineData. flnkExtents. Union ( inkExtents ); 

} 



if ( lineData . IsHorizontal ( ) ) { 

lineData .flnkExtents. xl +» gbrS .minRelPosition ; 

lineData .flnkExtents. x2 +«=» ( lineData . fComputedLen - lastChWidth ); 
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lineData. f InkExtents .yl +« gbrS .minRelPosition; 

lineData.f InkExtents .y2 +■ ( lineData . fComputedLen - lastChWidth ); 

} 



#if SCDEBUG > 1 

SCDebugTrace ( 4, scString( "BRKMaxLineVals: (£d %d kd S£d)\n" ), 

muPoints( lineData . f InkExtents .xl ), muPoints( 1 ineData . f InkExtents .yl ), 

muPoints( lineData . flnkExtents ,x2 ), muPoints( lineData . flnkExtents ,y2 ) ) 

#endif 

if ( gbrS.dcSet ) { 

/» now union the drop cap extents and the 'line' extents «/ 
lineData . flnkExtents .Union ( dcRect ); 

} 

} 

/*»*«****••»••»••«**«•««••*••«**«•»•*»*««•* 

static inline Bool BRKExceedVals ( MicroPoint adjustableSpace ) 
{ 

return gbrS .cB .minGlue + gbrS . trapMinGlue > adjustableSpace; 

} 

/* this is the routine that effectively does the quality line breaking 
* a up to this point we have simply been looking for a condition to 
&y have been exceeded, now we may search to find a good break point 

dtktic UCS2 BRKLineDecision( MicroPoint ) 
l] CandBreak *choice; 



if ( ( gbrS .effect iveRag & eRagFlag ) — eRagJustif ied ) 
choice - BRKHyphen ate Just ( ) ; 

else 

choice - BRKHyphenateRag ( ); 



111 

Vj 

f 1 

^ if ( choice->breakCount «• 0 && 

s 4 gbrS.cB.breakCount > 1 && 

| ; j choice->streamCount " choice->startCount ) 

.? choice++; 

** 

C3 choice->spaceCount - (ushort) (choice->spaceCount - choice->trailingSpaces) ; 

H choice->wsSpaceCount » (ushort) (choice ->wsSpaceCount - choice->trailingSpaces) ; 
gbrS.cB - ^choice; 

/* this is a fix for a bug in the character loop, 

* in the loop the spec is incremenented before the character is 

* called, if the character forces a line break, the spec at the 

* end of the line ( stored in choice->spec ) is invalid, the following 
« fixes this 

»/ 

while ( gbrS .cB ,theChRec-> character && 
gbrS.cB.lineVal && 

gbrS .cB ,specRec->of fset ( ) >- (long)gbrS .cB .streamCount ) { 
gbrS . cB . specRec — ; 

gbrS.cB.spec - gbrS .cB .specRec->spec( ) ; 
gbrS.cB.lineVal--; 

} 

scCachedStyle: :GetCachedStyle( gbrS.cB.spec ); 

if ( gbrS.cB.breakVal — eHyphBreak ) { 
gbrS.lineHyphenated = true; 

if ( gbrS.cB.theChRec->f lags . IsKernPresent () ) 

gbrS.cB.curBox +- BRKRernCorrection ( gbrS .cB . theChRec ); 

} 

else { 
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# • 

5 .c!T. theChRec , gbrS .cB .trail ingSpaces 



} 



gbrS . lineHyphenated « fa j 

BRRRepairLastSpace( gbrS /SntheChRec, gbrS .cB .trail ingSpaces )T 
} 

return gbrS .cB . theChRec->character; 



/••••••*•*»•*«•*«•••«««*•*••••*«•••*•••••«•••»•«•«•••»•••••»•••••«•*•••••/ 

/» we have tripped on a word space, if it is the first word space we 

* must do some housekeeping, the first word space test performs two 

* operations: 1. it tests to see if we have exceeded the measure and 

* 2. it counts actual interword spaces areas, we need to know that 
« for microjustification 

«/ 

static inline eBreakEvent bmBRKWord Space ( ) 
{ 

BOOL bFirstGlue « gbrS . f irstGlue; 

if ( gbrS.f irstGlue ) { 
gbrS.firstBox = true; 
gbrS . f irstGlue a false; 
gbrS . cB . wsSpaceCount++ ; 

} 

gbrS.fNoSt art line =» false; 
gbrS.fLastHangable - 0; 

*f gbrS .tmpOptGlue += scCachedStyle : :GetCurrentCache ( ) .GetOptWord ( ) ; 
Q gbrS.tmpMinGlue scCachedStyle: :GetCurrentCache() ,GetMinWord() ; 
gf| gbrS.tmpMaxGlue += scCachedStyle : :GetCurrentCache () .GetMaxWord( ) ; 

5 f gbrS.cB.theChRec->escapement = scCachedStyle : :GetCurrentCache () .GetOptWord ( ] 



p ss. 



gbrS . cB . t ra i 1 i ngSpaces++ ; 
gbrS . cB . spaceCount++ ; 
gbrS . cB . streamCount++ ; 



\ J gbrS . cB . t heChRec++ ; 
if (! bFirstGlue) 

'•4 MicroPoint adjustableSpace = gbrS .desiredMeasure - gbrS.cB .curBox; 

BRRSetCandBreak { eCharBreak ) ; 
if (BRRExceedVals (adjustableSpace)) 



C3 BRKLineDecision (0); 



} 



return BRKExitLoop( ); 

} 

} 

return in-line; 



/••••••••*•«*•**«»**•**•«***•••*••*«•*»•««.*••••«•*••*••*»»«**••*»•**••**/ 

/* does much the same as the word space break, except these are characters, 
* it also checks for hyphens 
»/ 

static inline void BRKSetFirstBox ( ) 
{ 

gbrS. f irstGlue « true; 

gbrS.firstBox - false; 

gbrS.cB .minGlue +- gbrS.tmpMinGlue; 

gbrS .cB .optGlue +* gbrS .tmpOptGlue; 

gbrS .cB .maxGlue +• gbrS.tmpMaxGlue; 

gbrS.tmpMinGlue » gbrS .tmpOptGlue - gbrS.tmpMaxGlue =0; 

gbrS .cB .trail ingSpaces » 0; 



static inline eBreakEvent bmBRKChar( ) 
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{ 



MicroPoint adjustableSpa 

if ( gbrS.cB.theChRec->character >- 256 ) { 

adjustableSpace » gbrS .desiredMeasure - gbrS .cB .curBox; 
BRRSetCandBreak { eCharBreak ); 

if ( BRKExceedVals( adjustableSpace ) ) { 
BRKLineDecision( 0 ); 
return BRRExitLoop( ); 

} 

gbrS . cB . curBox + « gbrS . cB . t heChRec - > escapement ; 

gbrS . cB . chCount++ ; 
gbrS . cB . streamCount++ ; 
gbrS . cB . theChRec++ ; 



} 



return in_line; 



if ( gbrS.f irstBox ) { 

adjustableSpace - gbrS .desiredMeasure - gbrS . cB . curBox ; 

/« at the start of every word set a potential break point «/ 
BRKSetCandBreak ( eCharBreak ); 
if ( BRKExceedVals( adjustableSpace ) ) { 

BRKLineDecision( 0 ); 

return BRKExitLoop( ); 

} 

£3 

^ BRKSetF irstBox ( ) ; 



} 

gbrS.cB. curBox +- gbrS.cB .theChRec -> escapement; 



hi 



gbrS . cB . chCount++ ; 
gbrS . cB . streamCoun t ++ ; 
■J gbrS . cB . theChRec++ ; 



C3 

h 



return in-line; 



H ,3 

static void getfield( stUnivString& ustr, 
M APPColumn col, 

p scStream* stream, 

^ uint8 id, 

TypeSpec& spec ) 

{ 

clFieldSc field « clField : :createField ( stream, id ); 
field .content ( ustr, col, spec ); 
field .release () ; 

} 

BQDaennBaBaDnocseosaansaBOBseaaDQaaDssBasaaaBaBaaaaooDDaacasnigasnaoo •» / 

static inline eBreakEvent bmBRRField() 
{ 

stUnivString ustr; 

TypeSpec spec « gbrS .cB .spec; 

getfield( ustr, 

gbrS . theBreakColH->GetAPPName ( ) , 
gbrS . theBreakColH->GetStream ( ) , 
gbrS . cB . theChRec-> flags . GetField ( ) , 
spec ) ; 

if ( gbrS.f irstBox ) { 

MicroPoint adjustableSpace - gbrS. desiredMeasure - gbrS . cB . curBox ; 

/* at the start of every word set a potential break point «/ 
BRKSetCandBreak { eCharBreak ); 
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} 



if ( BRKExceedVals( adj^^kleSpace ) ) { 

BRKLineDecision( 0 
return BRKExitLoop( ); 

} 

BRRSetFirstBox( ); 

} 

if ( ustr.len ) 

gbrS.cB. theChRec->escapement - UnivStringWidth ( ustr, 0, spec ); 

gbrS .cB .curBox +■ gbrS .cB . theChRec -> escapement ; 

gbrS . cB . chCount++ ; 
gbrS .cB . streamCount++ ; 
gbrS . cB . theChRec++ ; 

return in_line; 



static inline eBreakEvent BRKLoopBody ( ) 
{ 

register ushort theCharacter » gbrS .cB . theChRec->character; 
register eBreakEvent breaktype - in_line; 

/* increment the spec counter if necessary, 

* NOTE - this increments the spec too soon! ! ! 
tj * If the next character is the break char then 
. * the spec will be inaccurate, there is a fix 
*!! * for this in the line ending decision logic, 

* it is commented as such, the cleaner fix 
jfjj * would slow the code down too much 

,=i * (sorry for any confusion WAM) 

¥4 if { gbrS . cB . streamCount >« gbrS. theSpecRec->of fset () ) { 
'"'4 if ( theCharacter I - scEndStream ) { 

/« do not advance spec unless we have characters «/ 
%s5 gbrS.cB.spec ■ BRKUpdateSpec ( gbrS . theSpecRec ); 

5 gbrS . theSpecRec++ ; 

C3 } 
H } 

/* dispatch the character to the appropriate routine */ 

p gbrS .cB . theChRec-> flags .ClrVarious ( ) ; 

?=* 

if ( I ( theCharacter & OxFFCO ) ) { 
if ( theCharacter — scWordSpace ) 

breaktype - bmBRKWordSpace ( ) ; 
else if ( theCharacter & 0x0030 ) { 
switch ( theCharacter ) { 
case scBreakingHyphen: 

breaktype = bmBRKHyphen ( ) ; 
break; 
default: 

breaktype - bmBRKChar(); 
break; 

} 

} 

else 

breaktype - (*gbrS .breakMach [theCharacter] )() ; 

} 

else 

breaktype = bmBRKCharQ; 



} 



return breaktype; 
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static eBreakEvent BRKTheLoop ( 
{ 

eBreakEvent bt; 

while ( ( bt - BRKLoopBody ( ) ) -» in-line ) 
return bt; 

} 

/*•••*•••»•»«••*•«•••*•»•«•*«**•••***•»••••*«*••*•••••«*••*••••••«« 

/* handle breaking of characters that we cannot vector to with thw 
* 'breakMach' array of sub-routines 
»/ 

#if 0 

static void BRRSpecial ( ushort theCharacter ) 
{ 

switch ( theCharacter ) { 
case scFillSpace: 

bmBRRFillSpace( ); 

break; 
default: 

bmBRRChar(); 

break ; 

} 

} 

#endif 



|sjatic short BRKPerformDiscHyphen ( CharRecordP theChar, 
Z CharRecordP lastChRec, 

ru 



Hyphen 'hyphens ) 



UCS2 ch; 

5 short charCount = 1, 

%sS numBreaks « 0; 

iJ int j; 

Bool hitLowerCase - false; 

Bool hitUpperCase » false; 

s for ( ; theChar <« lastChRec; theChar++„ charCount++ ) { 

C3 

tj ch « theChar->character; 

£y if ( ch « scBreakingHyphen ) 

return 0; 



} 



if ( theChar->flags.IsDiscHyphen() ) { 

if ( charCount scCachedStyle: : Get Current Cache () .Get PreHyph ( ) ) { 
hyphens [numBreaks] .offset - charCount; 
hyphens [numBreaks] -rank - eDiscHyphRank; 
numBreaks++; 

} 

} 

if ( ch < 256 && CTIsAlpha( ch ) ) { 
if ( CTIsLowerCase( ch ) ) 

hitLowerCase - true; 
else if ( CTIsUpperCase( ch ) ) 

hitUpperCase - true; 

} 

else if ( CTIsSpace( ch ) ) 

if ( ch !« scFinRelSpace && ch l« scFixAbsSpace ) 
break; 



if ( ( ! scCachedStyle: :GetCurrentCache ( ) .Get AcronymHyphs ( ) && ! hitLowerCase ) || ( I scCachedS 
tyle: :Get Current Cache () . GetCaseHyphs ( ) && hitUpperCase ) ) 
return 0; 

charCount » (short) (charCount - scCachedStyle : :GetCurrentCache ( ) .GetPostHyph ( ) ) ; 
for ( j - numBreaks - 1; j >- 0 && numBreaks > 0; j — ) 
if ( hyphens [j ] .of f set >« charCount ) 
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numBreaks-- 
return numBreaks; 



static short BRKPerformHyphenation ( CharRecordP firstChRec 

CharRecordP lastChRec, 



Hyphen* hyphens ) 

{ 

CharRecordP theChar; 

int j ; 

UCS2 ch; 

UCS2 hyphWord[64J; 

short hyphArray [64]; 

short hLen =0; 

Bool hitLowerCase = false; 

Bool hitUpperCase - false; 

short numBreaks « 0; 

short charCount » 1; 

SCmemset( hyphArray, 0, sizeof( short ) « 64 ); 
SCmemset( hyphWord, 0, sizeof( UCS2 ) * 64 ); 

for ( theChar - firstChRec; theChar <« lastChRec; theChar++ ) { 
ch « theChar->character; 
if ( ch < 256 && CTIsAlpha( ch ) ) 
break; 

S3 > 

for ( ; theChar <= lastChRec; theChar++, charCount++ ) { 

f ij ch - theChar- >character; 

• 

^ if ( ch « scBreakingHyphen ) { 
r ^y return 0; 

H } 

else if ( theChar->f lags . IsDiscHyphen ( ) ) { 
%w " return BRKPerf ormDiscHyphen ( firstChRec, lastChRec, hyphens ); 

} 

else if ( ch < 256 && CTIsAlpha( ch ) ) { 
s.\ if ( hLen < 63 ) { 

E * if ( CTIsLowerCase( ch ) ) 

hitLowerCase « true; 
M else if ( CTIsUpperCase( ch ) ) 

r~. hitUpperCase - true; 

hyphWord [ hLen++ ] = CTToLower( ch ); 

} 

} 

else if ( ch !» scFixRelSpace && ch !* scFixAbsSpace ) { /* hit delimiter •/ 
break ; 

} 

} 

if ( hLen < scCachedStyle :: Get Current Cache () .GetMaxWordHyph ( ) 

M ( ! scCachedStyle: : Get CurrentCache ( ) . GetAcronymHyphs ( ) && I hitLowerCase ) 
|| ( ! scCachedStyle: :GetCurrentCache ( ) . GetCaseHyphs ( ) && hitUpperCase ) ) 
return 0; 

if ( HYTWord( hyphWord, hyphArray ) ) { 
theChar « firstChRec; 

for ( j = 0, charCount - 1; j < hLen; charCount++, theChar++ ) { 
ch ■» CTToLower( theChar->character ); 
if ( ch hyphWord[j] ) { 

if ( hyphArray [j] && j >- ( scCachedStyle : :Get Current Cache () .Get PreHyph( ) - 1 ) && j 
( hLen - scCachedStyle: : GetCurrentCache ( ) .Get PostHyph() ) ) { 
switch ( hyphArray[j] & 0x3f ) { 
case 1 : 
case 2: 

hyphens [numBreaks] .rank » eBestHyphRank ; 
break; 
case 3 : 



a 
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h^^Hii 



} 



hyph^^phumBreaks ] . rank » eGoodHyphRank ; 
default : 

hyphens [numBreaks] .rank - eBadHyphRank ; 
break ; 

} 

hyphens [numBreaks] .offset = charCount; 
numBreaks++; 

} 

} 

} 

} 

return numBreaks; 



/•«••••*•••**•••*••**»*»«*•»*«•••«*•*••«•***•*•««»••«•»»••«»«««»»«*•»*••*/ 

/* This is called only in the case where even the first word (or the »/ 
/* first legal portion of it before a hyphen) will not fit on the line. »/ 
/* Therefore, we add a hyphen after every character to force a break. */ 

#ifdef scForceBreakFirstWord 

static void BRKForceHyphens ( CandBreak *startBreak „ 

CandBreak *endBreak ) 

{ 

CandBreak savedEndBreak; 
f=^ savedEndBreak ■ *endBreak; 

sJ /* We are resetting the break machine to the start of the word. */ 
Cfl /* The values from this point on in the machine will be over- */ 
fjj /» written. •/ 

-.4 gbrS.tmpMinGlue - (startBreak+1) ->minGlue - startBreak->minGlue; 

LJ gbrS. tmpOptGlue - (startBreak+l)->optGlue - startBreak->optGlue; 

gbrS.tmpMaxGlue - ( start Break+1) ->maxGlue - startBreak->maxGlue; 

?2 gbrS.cB » *startBreak; 

fes * gbrS. first Box « true; /» signal start of word «/ 

2 

12 while ( gbrS ,theSpecRec->of fset ( ) > gbrS .cB .streamCount ) // reset the spec to the start of the 
word 

^ gbrS . theSpecRec--; 

u 

while ( true ) { 

5^ BRRLoopBody ( ); 

if ( gbrS.cB.chCount « savedEndBreak .chCount ) 
break ; 

BRKSetCandBreak ( eHyphBreak ) ; 

if ( scCachedStyle: :GetCurrentCache() .GetHyphLanguage( ) ! = Japanese ) 
(gbrS.cB.theChRec - 1) -> flags . SetAutoHyphen ( eGoodHyphRank ); 

if ( ( gbrS.ef fectiveRag & eRagFlag ) eRagJustif ied ) { 

if ( gbrS .cB .curBox + gbrS .cB .minGlue > gbrS .desiredMeasure ) 
break; 

} 

else { 

if ( gbrS.cB.curBox + gbrS.cB.optGlue > gbrS .desiredMeasure ) 
break ; 

} 

} 



savedEndBreak. breakCount = gbrS.cB.breakCount; 
gbrS. candBreak [gbrS.cB.breakCount] » savedEndBreak; 

if ( gbrS.cB.breakCount >- (MAXBREAKVALS- 1 ) ) 
Shuf f leBreakCandidates ( ) ; 

else 

gbrS . cB . breakCount++ ; 
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} 

#endif /» forceBreakFirstWord */ 
/•••***»•••»«•»•••••••••••••**•*« 



m m 



#define NotHyphBreak ( c ) ( ( (c) ! -eHyphBreak) && ( (c) I *eHardHyphBreak ) ) 

#define useBadHyphens false 

static void BRKAddHyphens ( CandBreak "startBreak, 

CandBreak *endBreak ) 

{ 

CandBreak savedEndBreak ; 
CharRecordP startChRec; 
CharRecordP stopChRec; 
Hyphen hyphens [ 64 ] ; 

short i , 

offset, 

prevOffset - 0, 

numHyphens ; 

if ( startBreak « endBreak | | endBreak->curBox + endBreak->optGlue <» gbrS .desiredMeasure ) 
return ; 

if ( ! gbrS.allowHyphens || ! scCachedStyle : :GetCurrentCache () . GetHyphenate ( ) ) { 

#ifdef scForceBreakFirstWord 

if ( startBreak « &gbrS ,candBreak[Q] && startBreak ->streamCount « startBreak ->startCount ) 
BRKForceHyphens ( startBreak, endBreak ); 

#enllf 

W 

ffi return; 



2 y 

SavedEndBreak « *endBreak; 

i startChRec » startBreak ->theChRec; 

*'$topChRec - endBreak->theChRec; 

ClumHyphens ° BRRPerformHyphenation ( startChRec, stopChRec, hyphens ); 
„ if ( numHyphens « 0 ) { 

#if&ef scForceBreakFirstWord 

s 4 if ( startBreak — ■ SgbrS.cand Break [0] && startBreak ~>streamCount « startBreak ->startCount ) 
i s \ BRKForceHyphens ( startBreak, endBreak ); 

C3 return; 

/* We are resetting the break machine to the start of the word. */ 

/» The values from this point on in the machine will be over- «/ 
/• written. The end of word break, since it is past the measure,*/ 

/* will never be restored, and the final break will now be the */ 

/* last hyphen break. */ 

/* Use endBreak to return the last hyphen breakpoint we find . «/ 

gbrS.tmpMinGlue » (startBreak+1) ->minGlue - startBreak- >rainGlue; 
gbrS.tmpOptGlue » (startBreak+1) ->optGlue - startBreak ->optGlue; 
gbrS.tmpMaxGlue » (startBreak+1) ->maxGlue - startBreak ->maxGlue; 
gbrS.cB » *startBreak; 

gbrS.f irstBox » true; /• signal start of word »/ 

for ( i » 0; i < numHyphens; i++ ) { 

if ( I useBadHyphens && hyphens { i ]- rank « eBadHyphRank ) 
continue; 

offset » hyphens [i] .offset; 
for ( ; prevOffset < offset; prevOffset++ ) 
BRKLoopBody ( ); 

BRKSetCandBreak ( eHyphBreak ) ; 

if ( I (gbrS.cB. theChRec-1) -> flags. IsDiscHyphen ( ) ) 
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(gbrS.cB.theChRec-l)->f^^.SetAutoHyphen( hyphens [ i ]. rank )! 

if ( ( gbrS.ef fectiveRag & eRagFlag ) « eRagJustif ied ) { 

if ( gbrS.cB.curBoK + gbrS.cB.rainGlue > gbrS.desiredMeasure ) 
break; 

} 

else { 

if ( gbrS.cB.curBox + gbrS.cB.optGlue > gbrS.desiredMeasure ) 
break; 

} 

} 

#ifdef scForceBreakFirstWord 

/•if the first hyphen exceeded the measure, we may */ 
/» want to force a break. •/ 
if ( i «- 0 && startBreak -« &gbrS .candBreak [ 0 ] 

&& startBreak->streamCount « startBreak->startCount ) { 
BRRForceHyphens ( startBreak , endBreak ) ; 
return ; 

} 

#endif 

savedEndBreak.breakCount « gbrS .cB .breakCount ; 
gbrS. candBreak [gbrS.cB.breakCount] « saved End Break; 

if ( gbrS.cB.breakCount >- (MAXBREAKVALS - 1 ) ) 
Shuf fleBreakCandidates() ; 

else 

s ^ gbrS . cB . breakCount ++ ; 



} 



'ff! 

stal^c CandBreak »BRKHyphenateRag ( ) 

{ Q 

I CandBreak *theBreak, 

*choice - NULL; 

"CandBreak *startWord - NULL, 

II »endWord; 

B long bCount ■ gbrS.cB.breakCount; 

? &icroPoint diff, 

^ bestDiff - L0NG_MAX, 

'^4 lineSpace; 

[i^ool lineDiff « true; /• irrelevant unless otherwise set ♦/ 

La 

f V* If there is a hyphenation zone, first try to find a non -hyphen break. 
£3» If that fails, find the start and end of the word straddling the 
q* line break, call hyphenation routine, and call line decision to 

* find the best break. 

•/ 

if ( gbrS .hyphenationZone ) { 

theBreak - gbrS. candBreak + gbrS.cB.breakCount - 1; 

for ( ; bCount — > 0; theBreak — ) { 

lineSpace » theBreak- >curBox + theBreak->optGlue; 

if ( scCachedStyle: :GetCurrentCache ( ) .GetDif f RagZone ( ) ) 

lineDiff « ABS( gbrS . lastLineLen - lineSpace ) > scCachedStyle : : GetCurrentCache ( 
) .GetDif fRagZone() ; 

/* look for a non-hyphen break and a line with a sufficient diff zone «/ 
if ( NotHyphBreak ( theBreak -> break Val ) 

&& gbrS.desiredMeasure >- lineSpace 

&£t gbrS.desiredMeasure O lineSpace + gbrS .hyphenationZone 
&& lineDiff ) 

{ 

choice « theBreak; 

break; 

} 

} 

} 
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} 



if ( choice ) 

return choice; 

/* First, get closest word break greater than desired measure «/ 
bCount - gbrS .cB.breakCount; 

endWord » theBreak = gbrS.candBreak + gbrS .cB .breakCount - 1; 
for ( ; bCount — > 0; theBreak — ) { 

diff « theBreak->curBox + theBreak->optGlue - gbrS .desiredMeasure; 
if ( diff <- 0 ) 
break ; 

if ( NotHyphBreak ( theBreak->breakVal ) && diff < bestDiff ) { 
bestDiff « diff; 
endWord ■» theBreak; 

} 

} 

/* Next, get closest word break less than desired measure »/ 
startWord - endWord; 

bCount++; /* reset it to what it should be */ 

for ( ; bCount-- > 0; theBreak-- ) { 

if ( NotHyphBreak ( theBreak->breakVal ) ) { 
startWord » theBreak; 
break ; 

i i 

•c sr 

t|RKAddHyphens( startWord, endWord ); 
?p?eturn BRKLineDecisionRag ( ); 

fU 

static CandBreak *BRKHyphenate Just ( ) 

[BandBreak *theBreak; 

CandBreak *choice - NULL, 

f „ -startWord - NULL, 

»endWord; 

^-long bCount « gbrS. cB.breakCount; 

[Jong endCount; 
-"MicroPoint adjustableSpace, 

diff, 

13 bestDiff « L0NGJ4AX; 

fi 

"endWord » theBreak « gbrS.candBreak + bCount - 1; 
for ( ; bCount-- > 0; theBreak-- ) { 

/* amount of space we have to play with »/ 

adjustableSpace « gbrS .desiredMeasure + theBreak->fHangable - theBreak->curBox; 

diff * adjustableSpace - theBreak->optGlue; 

if ( diff <- 0 && NotHyphBreak ( theBreak->breakVal ) ) { 

endWord ■ theBreak; 

endCount « bCount + 1; 

} 

diff = ABS( diff ); 

if ( NotHyphBreak ( theBreak ->breakVal ) && diff < bestDiff ) { 

if ( adjustableSpace <» theBreak->maxGlue && adjustableSpace >=» theBreak->minGlue ) { 
choice « theBreak; 

bestDiff - diff; 

} 

} 

if ( diff > bestDiff ) 
break; 

} 



if ( choice ) 
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return choice; 
theBreak = startWord » endWord; 

bCount " endCount; /* restore its last value «/ 

for ( ; bCount — > 0; theBreak — ) { 

if ( NotHyphBreak ( theBreak ->breakVal ) 

&& theBreak ->curBox + theBreak->optGlue < gbrS .desiredMeasure + theBreak->fHangabl 

e ) { 

startWord = theBreak; 
break; 

} 

} 



} 



BRKAddHyphens ( startWord , endWord ) ; 
return BRKLineDecisionJust ( ); 



static CandBreak *BRKLineDecisionRag ( ) 
{ 

CandBreak "theBreak „ 

♦choice » NULL; 

long bCount = gbrS .cB .breakCount; 

Mi croPo i n t 1 i neSpace ; 

/• there is a very strange bug here in that the char plus hyphen may be 
* chosen instead of the entire word because the hyphen may be wider than 
the trailing letter (s) 

Note: We only get here if hyphenationZone is off or we failed to find 
[P]* a good non -hyphen break. 

i y 
%J 

[gf ( scCachedStyle: :GetCurrentCache ( ) .GetDi f f RagZone ( ) ) { 

^1 theBreak » gbrS .candBreak + gbrS.cB. breakCount - 1; 

P for ( ; bCount-- > 0; theBreak-- ) { 

5 

lineSpace = theBreak->curBox + theBreak->optGlue; 

/* this reflects space changed by hyphenation spelling changes */ 

Id if ( gbrS. desiredMeasure >» lineSpace && ABS( gbrS . lastLineLen - lineSpace ) > scCached 

Sty|_§.: :GetCurrentCache() .GetDi ff RagZone () ) { 
!L choice « theBreak; 

^ ' break; 

C3 } 
} 

} 

\ /* resort to worst case if necessary •/ 

/* if ! GetDi f f RagZone () && ! hyphenationZone, we will fall through to here »^ 

if ( choice =» NULL ) { 
, bCount - gbrS.cB. breakCount; 

choice - theBreak » gbrS .candBreak + gbrS .cB .breakCount - 1; 

for ( ; bCount-- > 0; theBreak-- ) { 

lineSpace - theBreak ->curBox + theBreak->optGlue; 

/« this reflects space changed by hyphenation spelling changes »/ 

if ( gbrS. desiredMeasure + theBreak ->fHangable >= lineSpace ) { 
choice « theBreak; 

break; 

} 

} 

} 

return choice; 
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• 



static CandBreak *BRKLineDecisionJust ( ) 

{ 

CandBreak *theBreak , 
♦choice; 

long bCount « gbrS .cB.breakCount; 

MicroPoint lineSpace, 
diff, 

bestDiff - L0NGJ4AX; 

choice = theBreak = gbrS .candBreak + bCount - 1; 

for ( ; bCount-- > 0; theBreak — ) { 

lineSpace = theBreak ->curBox + theBreak ->minGlue; 

/* this reflects space changed by hyphenation spelling changes */ 

diff - lineSpace - gbrS .desiredMeasure; 

if ( diff < theBreak->fHangable && ABS( diff ) < bestDiff ) { 

choice - theBreak; 

bestDiff « ABS( diff ); 

} 

if ( diff > bestDiff ) 
break; 

} 

return choice; 

} . 

z„43™ »„.„™„™ „™«„ .„/ 

/* if we break on a hyphenation point and the character is kerned with 
'* the next character we have an incorrect line length, because of the 
* &4rn built into the characters escapement, here we get that correction 

static MicroPoint BRKKernCorrection ( CharRecordP aChRec ) 

"ifeturn ( scCachedStyle : :GetCurrentCache () . GetEscapement ( aChRec->character ) - aChRec->escapemen 

} . 

/» lP4r non-justified lines this places the line */ 

ly 

static void BRRPlaceLine ( scMuPoint& lineOrigin, 
IZ. MicroPoint& measure, 

13 const scFlowDir& fd ) 

i C3 : 

MicroPoint actualMeasure , 
translation; 

actualMeasure » gbrS .t?B .curBox + gbrS.cB .optGlue; 
if ( gbrS.cB.fillSpCount ) { 

MicroPoint fill; 

long count; 

CharRecordP tmpChRec; 

fill - gbrS. desiredMeasure - actualMeasure; 

fill = scRoundMP( (REAL) fill / gbrS.cB.fillSpCount ); 

actualMeasure » gbrS .desiredMeasure; 

for ( tmpChRec « gbrS .cB .theChRec, count • gbrS.cB.fillSpCount; 

tmpChRec >* gbrS .gStartRec && count; tmpChRec-- ) { 
if ( tmpChRec -> character « scFillSpace ) 
tmpChRec->escapement ■ (GlyphSize) f i 11 ; 

} 

} 

switch ( gbrS .ef fectiveRag & eRagFlag ) { 
default: 
case eRagRight: 

translation » gbrS .brkLeftMargin; 

break; 
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case eRagLeft: 

if ( gbrS.ef fectiveRag &^Pnt)eHangPuncRight ) 

gbrS.desiredMeasure +« BRKHangPuncRightAdjust ( ); 
translation » gbrS.desiredMeasure - actualMeasure + gbrS .brkLeftMargin ; 

if ( IgbrS. lineHyphenated ) { 

/* this accounts for any track kerning - no need to worry about with 
» hyphenation because, we want trackkerning between the hyphen 

* and the last character - and the hyphen escapement does not 

* include any track kerning 
*/ 

translation += scCachedStyle : :GetCurrentCache ( ) .GetOptLSPf) ; 

} 

■ break ; 
case eRagCentered : 

if ( gbrS . lineHyphenated ) 

translation * scRoundMP( (REAL) ( gbrS.desiredMeasure - actualMeasure) / 2 ) + gbrS.b 

rkLeftMargin; 

else 

translation = scRoundMPf (REAL) ( gbrS.desiredMeasure - actualMeasure + scCachedStyle 
: :GetCurrentCache() .GetOptLSP() ) / 2 ) + gbrS .brkLeftMargin; 
break ; 

} 

if ( fd.IsHorizontal() ) 

lineOrigin .Translate ( translation, 0 J; 

else 

lineOrigin.Translate( 0, translation ); 
C|f ( gHiliteSpaces ) 



actualMeasure +- gbrS .totalTrailingSpace; 



^measure - actualMeasure; 

} ru 



/* handle adjustment for hanging punctuation on the right »/ 
stable MicroPoint BRKHangPuncRightAdjust ( ) 

{ r <" 

!*£harRecordP lastCharOnLine; 

f "i 

^d£ ( gbrS . lineHyphenated ) 

return scCachedStyle: : Get CurrentCache ( ) .Get RightHangValue ( scCachedStyle : :GetCurrentCache( ) , 
GetH^phChar() ); 



fJastCharOnLine » BRRLastCharOnLine ( gbrS .cB .theChRec - 1 ); 

V ( 
™ i 
else 



i?=4 F ( CTIsPunc( lastCharOnLine->character ) ) 

return scCachedStyle : :GetCurrentCache() .Get RightHangValue ( lastCharOnLine->character ); 



return 0L ; 



} 



#define COMP_LETTERSPACES ( charCount, spaceCount, chRec ) \ 

((long)( charCount -spaceCount-1 + ( (chRec-1) -> flags . IsHyphPresent ( ) ? 1:0) )) 

static void BRKJustifyLine ( ) 

{ ... 

GlyphSize glueSpace, 

ad j ustableSpace ; 
long IspSpaces; 

if ( gbrS.ef fectiveRag & (int )eHangPuncRight ) 

gbrS.desiredMeasure BRKHangPuncRightAdjust ( ); 

glueSpace - (GlyphSize) (gbrS .desiredMeasure - gbrS .cB .curBox) ; 

if ( glueSpace < 0 ) { 

gbrS.desiredMeasure +« gbrS.cB. fHangable; 

glueSpace - (GlyphSize) (gbrS .desiredMeasure - gbrS .cB .curBox) ; 

} 
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if ( ! gbrS . lineHyphenated ) 

glueSpace += scCachedStyle: -.GetCurrentCache ( ) .GetOptLSP ( ) ; 

if ( gbrS .cB .spaceCount ) { 

gbrS. justSpace =* scRoundGS( (REAL) glueSpace / gbrS.cB. spaceCount ); 

if ( gbrS. justSpace < 0 ) { 

IspSpaces = COMP_LETTERSPACES ( gbrS .cB .chCount , 0, gbrS . cB . theChRec ) ; 

if ( IspSpaces ) 

gbrS.letterSpaceAdj - scRoundGS( (REAL) glueSpace / IspSpaces ); 

else 

gbrS.letterSpaceAdj - glueSpace; 
gbrS. justSpace =0; 

} 

else if ( gbrS. justSpace > scCachedStyle : :GetCurrentCache ( ) .GetMaxWord ( ) ) { 

IspSpaces - COMP_LETTERSPACES ( gbrS.cB. chCount, gbrS.cB. spaceCount, gbrS .cB. theCfa 



Rec) 



es ) ); 



adjustableSpace « MPtoGS( glueSpace - gbrS .cB .maxGlue ); 
if ( IspSpaces ) 

gbrS.letterSpaceAdj « scRoundGS( (REAL) adjustableSpace / IspSpaces ); 

else 

gbrS.letterSpaceAdj - adjustableSpace; 
if ( gbrS.letterSpaceAdj < scCachedStyle : : GetCurrentCache ( ) .GetMinLSP ( ) ) { 
gbrS . letterSpaceAdj - scCachedStyle : : GetCurrentCache ( ) .GetMinLSP ( ) ; 
adjustableSpace » MPtoGS( glueSpace - scRoundMP( (REAL ) gbrS . letterSpaceAdj * IspSpac 



gbrS. justSpace «* scRoundGS( (REAL)adjustableSpace / gbrS ,cB .spaceCount ); 

H } 

■Q else if ( gbrS.letterSpaceAdj > scCachedStyle : :Get Current Cache () .GetMaxLSP ( ) ) { 

f?t gbrS.letterSpaceAdj » scCachedStyle :: GetCurrentCache () .GetMaxLSP () ; 

T : ] adjustableSpace « MPtoGS( glueSpace - scRoundMP( ( REAL ) gbrS . letterSpaceAdj * IspSpac 

*s *); 

%J gbrS. justSpace - scRoundGS( (REAL) adjustableSpace / gbrS ,cB .spaceCount ); / 

u V 

, s else 

" 4 '" gbrS . j us tSpace = scCachedSty 1 e : : GetCurrentCache ( ) . GetMaxWord ( ) ; 

C3 } 

else if ( gbrS. justSpace < scCachedStyle : : GetCurrentCache () .GetMinWord ( ) ) { 

IspSpaces = COMPEL ETTERS PACES ( gbrS .cB .chCount , gbrS .cB .spaceCount , gbrS . cB . theChR 



V4 



adjustableSpace - MPtoGS( glueSpace - gbrS .cB.minGlue ); 



if ( IspSpaces ) 

\Z gbrS.letterSpaceAdj » scRoundGS( (REAL) adjustableSpace / IspSpaces ); 

iJ else 

gbrS.letterSpaceAdj « adjustableSpace; 



es ) ); 



es ) ); 



if ( gbrS.letterSpaceAdj < scCachedStyle : : GetCurrentCache ( ) .GetMinLSP ( ) ) { 
gbrS . letterSpaceAdj « scCachedStyle : : GetCurrentCache ( ) .GetMinLSP ( ) ; 
adjustableSpace « MPtoGS( glueSpace - scRoundMP( (REAL ) gbrS . letterSpaceAdj * IspSpac 

gbrS. justSpace = scRoundGS( (REAL) adjustableSpace / gbrS.cB. spaceCount ); 

} 

else if ( gbrS.letterSpaceAdj > scCachedStyle : : GetCurrentCache {) .GetMaxLSP ( ) ) { 
gbrS . letterSpaceAdj - scCachedStyle : : GetCurrentCache ( ) .GetMaxLSP ( ) ; 

adjustableSpace » MPtoGS( glueSpace - scRoundMP( (REAL ) gbrS . letterSpaceAdj / IspSpac 



gbrS. justSpace » scRoundGS( (REAL) adjustableSpace / gbrS .cB .spaceCount ); 
} 

else 

gbrS . j ustSpace « scCachedStyle : : GetCurrentCache ( ) . GetMinWord ( ) ; 

} 

BRKAd j ustWordSpace ( gbrS .cB .theChRec, 

gbrS. justSpace, gbrS.cB. spaceCount, 
gbrS.cB.trailingSpaces ); 

} 

else { 

IspSpaces - COMP_LETTERSPACES ( gbrS.cB. chCount, 0, gbrS .cB .theChRec) ; 

if ( IspSpaces ) 

gbrS.letterSpaceAdj ■ scRoundGS ( (REAL) glueSpace / IspSpaces ); 

elsB 



File: Work\CrtPrt\Stonehnd\Scbreak . cpp 



Pg: 21 



gbrS . letterSpaceAdj 



ace; 



#ifdef LimitLetterSpace 

/* should we constrain this to min/toax letterspace */ 

gbrS. letterSpaceAdj = MIN( gbrS . letterSpaceAdj , scCachedStyle : :GetCurrentCache ( ) .GetMaxLSP ( ) 



- ); 
#endif 

A 1 



gbrS. letterSpaceAdj « MAX( gbrS . letterSpaceAdj w scCachedStyle : : GetCurrentCache ( ) .GetMinLSP ( ) 



static eBreakEvent bmBRKFixSpace( ) 
{ 

MicroPoint. adjustableSpace; 

r 

if ( gbrS.firstBox ) { 

adjustableSpace - gbrS.desiredMeasure - gbrS . cB . curBox ; 

at the start of every word set a potential break point »/ 
BRRSetCandBreak ( eCharBreak ); 
if ( BRRExceedVals( adjustableSpace ) ) { 

BRKLineDecision( 0 ); 

return BRRExitLoop( ); 

} 

BRKSetFirstBox() ; 



//>>■ 



gbrS . f irstGlue 

gbrS. first Box 

gbrS .cB .minGlue 

gbrS.cB.optGlue 

gbrS.cB.maxGlue 

gbrS .tmpMinGlue 

gbrS , cB . tra i 1 i ngSpaces 



- true; 
« false; 

+- gbrS .tmpMinGlue; 
+« gbrS.tmpOptGlue; 
+» gbrS.tmpMaxGlue; 
■ gbrS.tmpOptGlue • 
= 0; 



gbrS.tmpMaxGlue » 0; 



fggbrS.fNoS tart line - false; 
J gbrS.fLastHangable * 0; 

i=J gbrS.cB.curBox +» gbrS .cB ,theChRec->escapement ; 
% 4 gbrS . cB . t heChRec++ ; 
= . i gbrS . cB . streamCount++ ; 



: return in_line; 



/WW** 



static eBreakEvent bmBRKRe 1 Space ( ) 
{ 

.. - MicroPoint adjustableSpace; 

r 

if ( gbrS.firstBox ) { 

adjustableSpace - gbrS.desiredMeasure - gbrS.cB.curBox; 

/*.. at the start of every word set a potential break point »/ 
BRRSetCandBreak ( eCharBreak ); 

if ( BRKExceedVals( adjustableSpace ) ) { ' * 

BRKLineDecision( 0 ); 
return BRKExitLoop( ); 

} 

BRKSetFirstBoxf) ; 
gbrS.f irstGlue ' 
gbrS. firstBox 
gbrS. cB. minGlue 
gbrS.cB.optGlue 
gbrS.cB.maxGlue 
gbrS . tmpMi nGl ue 
gbrS . cB . tra i 1 i ngSpaces 



// 

// 
// 



= true; 
■ false; 

+« gbrS. tmpMinGlue; 
+- gbrS.tmpOptGlue; 
+- gbrS.tmpMaxGlue; 

- gbrS.tmpOptGlue » 

- 0; 



gbrS . tmpMaxGlue 
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gbrS.fNoStartline « false; 
gbrS.fLastHangable = 0; 

gbrS . cB . curBox +« SCRLUCompMP( scCachedStyle : :GetCurrentCache ( ) .GetGlyphWidth ( ) , (RLU) gbrS.cB.t 
heChRec-> escapement ) ; 

gbrS.minRelPosition » MIN( gbrS.cB.curBox, gbrS .mi nRel Posit ion ); 
gbrS . cB . theChRec++ ; 
gbrS . cB . streamCount++ ; 



return in-line; 



} 



static eBreakEvent bmBRKHardReturn ( ) 
{ 

gbrS.cB.theChRec->escapement =0; 
gbrS . cB . theChRec++ ; 
gbrS . cB . streamCount++ ; 

BRKSetCandBreak ( eSpaceBreak ); 
BRRLineDecision( 0 ); 
return BRRExitLoopf ); 

} 

/*••**•««•••••*»*•««•««*«••«»***«**•••< 



static eBreakEvent bmBRKQuad( ) 
{ 

C3gbrS .cB. theChRec->escapement =0; 
\ JgbrS . cB . theChRec++ ; 
a s gbrS . cB . st reamCount ++ ; 

III .if ( gbrS.cB.theChRec->character scEndStreara ) 
fU BRKSetCandBreak ( eEndStreamBreak ); 
^else 

& j BRKSetCandBreak ( eSpaceBreak ); 



"^BRKLineDecision ( 0 ); 
£ 3 return BRKExitLoop( ); 



/•IS* 

~ 3 



static eBreakEvent bmBRKVertTab ( ) 

f^gbrS .cB.theChRec->escapement « 0; 
1 3 gbrS . cB . theChRec++ ; 
r ^ gbrS . cB . st reamCount ++ ; 

BRKSetCandBreak ( eColumnBreak ); 



} 



BRKLineDecision( 0 ); 
return BRKExitLoop( ); 



static Bool TabBreakChar ( UCS2 theCh„ 

UCS2 breakCh ) 

{ 

if ( breakCh «« theCh ) 

return true; 
else { 

switch ( theCh ) { 
default : 

return false; 
case scEndStream: 

case wordSpace:*/ 

case scTabSpace: 

case scFi 1 ISpace : 

/« vetical breaks «/ 

case scVertTab : 

/* horizontal breaks »/ 
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case scHardReturn : 
case scQuadCenter : 
case scQuadLeft: 
case scQuadRight: 
case scQuad Justify : 
return true; 



static MicroPoint BRKNextTokenWidth ( CharRecordP chRec, 

UCS2 breakCh ) 



{ 

MicroPoint tokenWidth - 0; 
MicroPoint charWidth; 
VCS2 theCh; 

long tStreamCount » gbrS .cB .streamCount ; 

scSpecRecord * curSpecRec - gbrS . theSpecRec ; 

for ( theCh » chRec->character; 

!TabBreakChar(theCh„breakCh) ; 
chRec++„theCh - chRec->character ) { 

if ( (long) tStreamCount >- gbrS . theSpecRec->of fset ( ) ) { 
gbrS . cB . spec 

» BRKUpdateSpec ( gbrS . theSpecRec ) ; 
gbrS . theSpecRec++ ; 

} 

. switch ( theCh ) { 

H default: 

& l charWidth « chRec -> escapement ; 

F Lf break; 
j.g case scWordSpace: 

charWidth ■ scCachedStyle : :GetCurrentCache ( ) .GetOptWord ( ) ; 
break; 
case scFixRelSpace: 

Q charWidth <= SCRLUCompGS( scCachedStyle : : GetCurrentCache ( ) . GetSetSize ( ) , (RLU) chRe 

c-?escapement ) ; 

5 break ; 

□ } 



tokenWidth +- charWidth; 

} 



f » 

12 if ( curSpecRec != gbrS .theSpecRec ) { 
i% gbrS . theSpecRec « curSpecRec; 

gbrS.cB.spec 

- BRKUpdateSpec ( gbrS . theSpecRec ) ; 

} 

return tokenWidth; 



static void BRKSetCharlndent ( 

CharRecordP chRec, /* the character array »/ 

long startCount, /* count into char array that starts line «/ 
long counts /* count into char array of end of line */ 

MicroPoint letterSpace ) 

{ 

MicroPoint indent; 

for ( indent « 0, chRec +« startCount; count — ; chRec++ ) { 
switch ( chRec->character ) { 
default: 

if ( LETTERSPACE { chRec ) ) 

indent +» ( chRec -> escapement + letterSpace); 

else 
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indent +- chRed 
break; 
case scFixRelSpace : 

indent +- SCRLUCompMP( scCachedStyle : :GetCurrentCache ( ) .GetGlyphWidth ( ) , (RLU)chRec- 

>escapement ) ; 

break; 

} 

} 

gbrS . foundChar Indent * false; 

} 



static eBreakEvent bmBRKTab( ) 
{ 

scTab Info t ab I n f o ; 
MicroPoint currentPosition, 

nextTokenWidth - 0. 

alignTokenWidth « 0; 
CharRecordP tabChRec » gbrS .cB . theChRec; 

BRKSetCandBreak ( eCharBreak ); 

tabChRec->escapement =0; 
currentPosition « gbrS.cB.curBox + 

gbrS.cB.optGlue + gbrS . tmpOptGlue + 

gbrS.brkLeftMargin + gbrS .theLineOrg; 

_TSTabInfo( gbrS.pspec„, 
fj gbrS.cB.spec, 
%s tablnfo, 
;z currentPosition, 
& 0, 

' f Lj gbrS. theLineCount ); 

* s switch ( tablnfo .tahAlign ) { 

ly default: 

% 4 case eTBLeftAlign: 

12 break; 

case eTBRightAlign: 

£ _ alignTokenWidth - nextTokenWidth = BRKNextTokenWidth ( gbrS.cB.the'ChRec+1, '\0' ) ; 

C3 break; 

'-.A case eTBDecimalAlign: 

5.1 alignTokenWidth - BRKNextTokenWidth ( gbrS . cB . theChRec + 1, scCachedStyle : :GetCurrentCach 

e()¥GetDecimalChar() ); 

Q nextTokenWidth « BRKNextTokenWidth ( gbrS .cB . theChRec+1, ' \0 ' ) ; 

» break; 

case eTBCenterAlign: 

nextTokenWidth - BRKNextTokenWidth ( gbrS .cB .theChRec + 1, '\0' ); 

alignTokenWidth - scRoundMP( (REAL) nextTokenWidth / 2 ); 

break; 

} 

tabChRec -> escapement ■ (GlyphSize) (tablnfo .xPosit ion - currentPosition - alignTokenWidth); 

if ( tabChRec -> escapement < 0 ) { 

alignTokenWidth +« tabChRec -> escapement ; /» warn added 7/22 «/ 

tabChRec -> escapement a 0; 

} 

if ( gbrS .desiredMeasure < currentPosition + tabChRec -> escapement + nextTokenWidth ) { 
if ( gbrS.cB.curBox + gbrS.cB.optGlue + gbrS .tmpOptGlue > 0 ) { 
BRKLineDecision( 0 ); 
return BRKExitLoopf ); 

} 

} 



th; 



gbrS.cB.curBox » tablnfo .xPosition - ( gbrS .brkLeftMargin + gbrS .theLineOrg ) - alignTokenWid 

gbrS . cB . theChRec++ ; 
gbrS . cB . streamCount++ ; 
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gbrS.firstGlue • true; 

gbrS.firstBox - true; /* sil to true on 6/12/92 */ 

gbrS.fNoStartline » false; 
gbrS . f LastHangable *» 0; 

gbrS.cB.minGlue « gbrS .cB .optGlue - gbrS .cB .maxGlue « 0; 
gbrS. tmpMinGlue - gbrS . tmpOptGlue - gbrS .tmpMaxGlue « 0; 
gbrS.cB.trailingSpaces =0; 
gbrS.cB .wsSpaceCount - 0; 
gbrS.cB .spaceCount « 0; 

// define noLeftAlignTabbedLines and this 

// will allow tabbed lines to be none left aligned, 

// the manager of the spec system had better 

// guarantee that the values are reasonable 

#ifndef noLeftAlignTabbedLines 
gbrS . cB . f i 1 lSpCount++ ; 

#endif 

return in-line; 

} 



static eBreakEvent bmBRKRule( void ) 
{ 

if ( gbrS.cB.curBox ) { 

BRRSetCandBreak ( eCharBreak ) ; 
p BRKLineDecision( 0 ); 
^ return BRRExitLoop( ); 

fUCharRecordP chRec = gbrS .cB .theChRec; 

il 

*~chRec-> escapement - gbrS .desiredMeasure; 

Ly 

^x|gbrS - cB .curBox +■ gbrS .cB . theChRec -> escapement ; 
f JjbrS - cB . streamCount++ ; 
""gbrS - cB . theChRec++ ; 

B 

C3if ( gbrS.cB.theChRec->character ) { 
%j BRRSetCandBreak ( eSpaceBreak ); 

BRKLineDecision( 0 ); 
% y return BRRExitLoop( ); 

M} 

l Return in_line; 

} B 



static eBreakEvent braBRKFillSpace( ) 
{ 

MicroPoint adjustableSpace; 

if ( gbrS.firstBox ) { 

adjustableSpace » gbrS. desiredMeasure - gbrS.cB.curBox; 

BRRSetCandBreak ( eCharBreak ); 

if ( gbrS.cB.minGlue > adjustableSpace ) { 

BRKLineDecision( 0 ); 

return BRKExitLoop( ); 

} 

BRRSetFirstBox() ; 

// gbrS.firstGlue » true; 

// gbrS.firstBox - false; 

// gbrS.cB.minGlue +- gbrS . tmpMinGlue; 

// gbrS.cB. optGlue +- gbrS. tmpOptGlue; 

// gbrS.cB.maxGlue +- gbrS . tmpMaxGlue; 

// gbrS. tmpMinGlue =» gbrS .tmpOptGlue * gbrS .tmpMaxGlue = 0; 

// gbrS.cB.trailingSpaces * 0; 
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gbrS.fNoStartline » false; 
gbrS.fLastHangable « 0; 

gbrS . cB . streamCount++ ; 
gbrS . cB . f i 1 !SpCount++ ; 
gbrS . cB . theChRec-> escapement 
gbrS . cB . theChRec++ ; 

return in line; 



static eBreakEvent bmBRKHyphen( ) 
{ 

MicroPoint adjustableSpace; 

if ( gbrS.firstBox ) { 

adjustableSpace « gbrS .desiredMeasure - gbrS .cB .curBox; 

BRKSetCandBreak ( eCharBreak ); 

if ( gbrS.cB.minGlue > adjustableSpace ) { 

BRKLineDecision( 0 ); 

return BRKExitLoop( ); 

} 

BRRSetFirstBox() ; 
// gbrS.firstGlue = true; 

// gbrS.firstBox = false; 

// ^ gbrS.cB.minGlue + =- gbrS .tmpMinGlue; 

//Q gbrS.cB. opt Glue += gbrS . tmpOptGlue; 

// \2 gbrS.cB.maxGlue += gbrS . tmpMaxGlue; 

gbrS. tmpMinGlue = gbrS .tmpOptGlue « gbrS . tmpMaxGlue = 0; 

//- gbrS.cB.trailingSpaces - 0; 

m 

I'JpbrS.fNoS tart line = false; 

* JfbrS.fLastHangable = 0; 

f^jbrS.cB.curBox +« gbrS .cB .theChRec-> escapement ; 

!„gbrS . cB . chCount++ ; 

£ 3gbrS . cB . streamCoun t ++ ; 

* JgbrS . cB . theChRec++ ; 

^BRKSetCandBreak ( eHardHyph Break ); 

fjreturn in-line; 
} fj 

/* start the stream */ 

static void BRKDropCapControl ( MicroPoint lineOrg, 

MicroPoint baseline ) 

{ 

int visible « CTIsDropCapable ( gbrS .cB .theChRec-> character ) 

&& scCachedStyle: :GetParaStyle ( ) .GetFlowdir ( ) . IsHorizontal ( ) 
int flushleft « gbrS .effect iveRag & (int)eRagRight ; 
if ( visible && flushleft && ::DCCompute( gbrS.dcInfo, 

gbrS .pspec_, 

gbrS . cB . spec , 

lineOrg, 

baseline, 

gbrS.cB.theChRec->character ) ) { 
gbrS . cB . theChRec-> flags , SetDropCap ( ) ; 
gbrS.dcSet ■ true; 
gbrS . cB . streamCount ++ ; 
gbrS . cB . theChRec++ ; 

} 

else { 

gbrS.dcSet » false; 

SCmemset( &gbrS .dclnfo, 0, sizeof( DropCapInfo ) ); 
gbrS . cB . theChRec-> flags .ClrDropCap ( ) ; 
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} 



/* we have hit end of stream, check to see if we have exceeded measure, 
» if not longjmp out, otherwise back up to a reasonable break point 
* and get out 
»/ 



static eBreakEvent bmBRKEndStream ( ) 
{ 

MicroPoint adjustableSpace 

» gbrS.desiredMeasure - gbrS .cB .curBox; 

if ( gbrS.cB.maxGlue > adjustableSpace ) { 
BRRSetCandBreak ( eEndStreamBreak ) ; 

if ( gbrS.cB.minGlue > adjustableSpace ) { 
BRKLineDecision( 0 ); 
return BRKExitLoop( ); 

} 

} 

if ( gbrS.cB.optGlue > adjustableSpace ) { 
BRRSetCandBreak ( eEndStreamBreak ) ; 
BRKLineDecision( 0 ); 
return BRRExitLoop( ); 

} 

BRRSetCandBreak ( eEndStreamBreak ) ; 

£3 

ijf ( BRKLineDecision( 0 ) -« scEndStream ) 
& l return end_of_stream__reached; 

r lj 

t =return measure_exceeded; 



/*^^»«*«*«***»««*»*«»«»***«»«******«*»*»*»«*«»**»«»*»**»*»*««**«**«»*»**/ 

/•phis sets up the linebreaker by initing the spec, performing indents, 
* rag zone control, etc. returns the desired measure of the line 
*/^_ 

% =J 
vi 

static MicroPoint BRRRagControl ( CharRecordP chRec, 

MicroPoint x, 
M MicroPoint y, 

|3 MicroPoint measure, 

~Z TypeSpec spec, 

* ^ ushort 1 i neCount , 

short linesHyphenated ) 

{ 

MicroPoint dcLeftOf fset ; 
MicroPoint dMeasure; 

scCachedStyle : :GetCachedStyle ( spec ) ; 

gbrS.effectiveRag « scCachedStyle: :GetParaStyle() .GetRag(); 
gbrS.brkRightMargin « scCachedStyle: :GetParaStyle ( ) .GetRightBlocklndent () ; 
gbrS . theLineOrg «= x; 

// CONSECUTIVE HYPHENATED LINE CONTROL 
if ( scCachedStyle: :GetParaStyle() .GetHyphenate() && linesHyphenated < scCachedStyle : :GetParaSty 
le() .GetMaxConsHyphsf) ) 

gbrS.allowHyphens - true; 

else 

gbrS.allowHyphens * false; 

gbrS.pspec_ « scCachedStyle : :GetParaStyle( ) .GetSpec () ; 

// DROP CAP CONTROL 
if ( lineCount « 0 ) { 

gbrS . cB . spec « : : BRKUpdateSpec ( gbrS . theSpecRec ) ; 

gbrS . theSpecRec++ ; 

: :BRKDropCapControl ( x, y ); 
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gbrS.theBreakColH - ggcS. theActiveColH; 
gbrS.dcLastBaseline = LONG_MIN; 

} 

else 

gbrS.dcSet » false; 
dcLeftOffset » 0; 

if ( gbrS.dcInfo.dcLineOrgChange && gbrS.dcLastBaseline l« y ) { 

if ( y > gbrS.ddnfo.dcVMax |) ggcS . theActiveColH != gbrS - theBreakColH ) 

gbrS.dcInfo.dcLineOrgChange « 0; 
else /» need to compute left indent for drop caps •/ 

dcLeftOffset - gbrS.dcInfo.dcLineOrgChange - x; 

} 

// INDENTION CONTROL 

if ( gbrS.effectiveRag & (int)eRagRight && (long) lineCount < scCachedStyle: :GetParaStyle() .GetL 
nesToIndentQ ) 

gbrS.brkLeftMargin - scCachedStyle : :GetParaStyle () .GetlndentAmount ( ) + dcLeftOffset; 

else 

gbrS.brkLeftMargin - dcLeftOffset; 



if ( gbrS.dcLastBaseline ! « y && x <«■ gbrS .charlndent ) 
gbrS.brkLeftMargin +- ( gbrS. char Indent - x ); 



// HANGING PUNCTUATION CONTROL 

// this computes the actual overhang 
_if ( ( gbrS.effectiveRag & (int)eFlushLeft ) 
|3 && ( gbrS.effectiveRag & (int JeHangPuncLeft ) 

^ && CTIsPunc( chRec->character ) ) 

It gbrS.brkLeftMargin -« scCachedStyle: : Get ParaStyle() .Get LeftHangValue ( chRec->character ); 

fSJ 

, jbrS . theBreakColH = ggcS . theActiveColH; 
* "gbrS.dcLastBaseline - y; 

■ iy 

''••■4 // compute the desired measure 

^Measure * measure - gbrS.brkLeftMargin - gbrS.brkRightMargin; 
s _ // compute the hyphenation zone 

Qf ( scCachedStyle: :GetParaStyle() .GetRagZone() > dMeasure ) 
%A gbrS.hyphenationZone « dMeasure / 2; 
c : else 

— gbrS.hyphenationZone » scCachedStyle: :GetParaStyle() .GetRagZone() ; 

M 

£3 
#i53p 

A LITTLE BULLET PROOFING 
* NOTE: it will be so out of whack the user will spot it fast 
*/ 

if ( dMeasure < 0 ) { 
SysBeep(lO) ; 
return 0; 
return one_point; 

} 

#endif 

return dMeasure; 

} 

static TypeSpec BRKUpdateSpec ( scSpecRecord *specRecEntry ) 
{ 

TypeSpec theSpec «* specRecEntry->spec ( ) ; 
size_t mlvlndex; 

scCachedStyle: :GetCachedStyle ( theSpec ); 

/* this is to take care of the rag setting on a line */ 
if ( gbrS.cB.startCount « ( gbrS .cB .streamCount - 1 ) ) 

gbrS.effectiveRag = scCachedStyle: :GetParaStyle { ) .GetRag() ; 
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); 



} 



if ( gbrS.cB.lineVal + 1 < MAXLEADVALS ) { 
gbrS . cB . specChanged++ ; 
mlvlndex - gbrS.cB.lineVal; 

gbrS . fMaxLineVals [mlvlndex] . fSpecRec « specRecEntry; 

gbrS. fMaxLineVa Is [mlvlndex] . f MaxLead . Set ( scCachedStyle : :GetCurrentCache ( ) .GetComputedLead () 

gbrS . fMaxLineVals [mlvlndex] . fMaxInkExtents * scCachedStyle: : GetCurrentCache ( ) .GetlnkExtents ( 

gbrS. fMaxLineVals [mlvlndex++] .fOblique « scCachedStyle: : GetCurrentCache ( ) .GetHorzOblique( ) ; 
gbrS.cB.lineVal - mlvlndex; 

*( gbrS. fMaxLineVals + gbrS.cB.lineVal ) » gbrS . fZeroMaxLineVals; 
gbrS . cB . specRec « specRecEntry; 

} 

return theSpec; 



/«»»«••*••«•«*»•*»••**•*•»**«*«*••*••*«»«»*«««**•*•*•*•*»•••»«*»*•••*•*••/ 

/» find the last non -space character on the line, given that what is passed in 
* is the last character on the line 
*/ 

static CharRecordP BRRLastCharOnLine ( CharRecordP tmpChRec ) 

{ *3 

\3£or ( ; CTIsSpace( tmpChRec->character ); tmpChRec — ) 

...return tmpChRec; 
y F J 



V4 

static void BRKRepairLastSpace ( CharRecordP tmpChRec, 
f3 long numberToNull ) 

{ $ 

^switch ( (tmpChRec- 1 )-> character ) { 
— case scQuadCenter : 

^4 gbrS . effect iveRag - eRagCentered; 

e.J tmpChRec — 2; 

[7 break; 

lZ case scQuadLeft: 

[3 gbrS.effectiveRag « eRagRight; 

p tmpChRec — 2; 

break; 
case scQuadRight: 

gbrS.effectiveRag « eRagLeft; 

tmpChRec — 2; 

break; 
case scQuad Justify : 

gbrS.effectiveRag = eRagJustif ied; 

tmpChRec -» 2; 

break; 
case scHardReturn : 
case scVertTab: 

tmpChRec — 2; 

break; 
default: 

tmpChRec — ; 

break; 

} 

gbrS .totalTrailingSpace =0; 

for ( ; numberToNull && tmpChRec->character — scWordSpace; tmpChRec — , numberToNull — ) { 
if ( gHiliteSpaces ) 

gbrS .totalTrailingSpace +■ tmpChRec -> escapement ; 

} 

scAssert( (numberToNull ); 
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static void BRRAd j ustWordSpace ( CharRecordP prevChar, 

GlyphSize adjustment, 
long numSpaces „ 

long endSpaces ) 



{ 



/* when we come in here prevchar points to the first word of the next line 
* we need to ignore it if it is a wordspace 
•/ 

if ( prevChar->character «- scWordSpace ) 
prevChar — ; 

for ( ; endSpaces && prevChar > gbrS .gStartRec; prevChar — ) { 
if ( prevChar- > character — scWordSpace ) 
endSpaces--; 

} 

scAssert( endSpaces ==0 ); 

for ( ; numSpaces && prevChar >= gbrS . gStartRec ; prevChar — ) { 
if ( prevChar- > character « scWordSpace ) { 
prevChar- > escapement « adjustment; 
numSpaces — ; 

} 

} 

scAssert( numSpaces 0 ); 



stjbjic void BRKRepairFinalSpace( ) 

fyscAssert ( gbrS .cB. theChRec->character « 0 ); 

. ^BRKRepairLastSpacef gbrS .cB . theChRec, gbrS .cB .trail ingSpaces ); 

} W 



BrerakStruct : : BreakStruct ( ] 

{ s 
} £3 



BrfeakStruct : 

< P 
} ^ 



"BreakStruct ( ) 



void BreakStruct : : In it ( ) 
{ 

pspec__ . c 1 ear ( ) ; 
cB.Init() ; 

for ( int i » 0; i < MAXBREAKVALS ; i++ ) 
gbrS.candBreak[i] .In it () ; 

} 



/* free the memory associated with the breaking machine */ 



void BRKFreeMach( ) 
{ 

delete [] gbrS . breakMach „ 
delete [] gbrS . fMaxLineVals „ 
delete [] gbrS .candBreak, 

} 



gbrS. breakMach <= 0; 

gbrS.fMaxLineVals « 0; 
gbrS . candBreak = 0; 



init the breaking machine */ 
void BRRInitMach( ) 
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int i; 

gbrS . breakMach 
gbrS . fMaxLineVals 
gbrS.candBreak 



« new BrFuncf SIZE_OF_MACHINE ]; 
= new scMaxLineValsf MAXLEADVALS ]; 
= new CandBreak[ MAXBREAKVALS ]; 



tn 



til 



C3 



Id 
£3 



bmBRKTab; 
bmBRKWordSpace; 
bmBRKEndSt ream ; 



bmBRKHyphen ; 
bmBRKFillSpace; 
bmBRRRule; 



for ( i * 0; i < SIZE_OF_MACHINE; i++ ) { 
switch ( i ) { 

case scTabSpace: 

gbrS . breakMach [ i ] 

break; 
case scWordSpace: 

gbrS . breakMach [ i ] 

break ; 
case scEndStreara: 

gbrS . breakMach [ i ] 

break; 
case scEnDash : 
case scEmDash : 
case scBreakingHyphen 
case ' *» ' : 

gbrS . breakMach [ i ] 

break; 
case scFillSpace: 

gbrS . breakMach [ i ] 

break; 
case scRulePH: 

gbrS . breakMach [ i ] 

break ; 
case scFixAbsSpace: 
case scFigureSpace: 
case scThinSpace: 
case scEnSpace : 
case scEmSpace: 

gbrS . breakMach [ i ] 

break; 
case scFixRelSpace : 

gbrS . breakMach [ i ] 

break ; 
case scVertTab: 

gbrS . breakMach [ i ] 

break; 
case scQuadCenter : 
case scQuadLeft: 
case scQuadRight: 
case scQuad Justify : 

gbrS . breakMach [ i ] 

break ; 
case scHardReturn : 

gbrS . breakMach [ i ] 

break; 
case scField: 

gbrS . breakMach [ i ] 

break; 
default: 

gbrS . breakMach [ i ] 

break ; 



bmBRKFixSpace; 
bmBRKRe 1 Space ; 
bmBRKVertTab; 



bmBRKQuad; 
bmBRKHardReturn ; 
bmBRRField; 
bmBRKChar; 



} 



} 



static Bool BRKStillMoreChars( CharRecordP chRec, 

long count ) 

{ 

for ( ; count — ; chRec++ ) { 

if ( CTIsVisible( chRec-> character ) ) 
return true; 

} 

return false; 

> 
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Bool BRKJustify( CharRecordP chRec, /* the character array */ 

long start, /* count into ch array to start the linebreak •/ 

long stop, /* count into ch array of end of line */ 

MicroPoint measure ) /» measure to justify to »/ 

{ 

long spaces, 
count; 

MicroPoint delta; 
MicroPoint boxWidth ; 
CharRecordP holdChRec; 
Bool changed - false; 

chRec +» start; 

holdChRec « chRec; 

boxWidth - 0; 

for ( spaces - 0, count - stop - start; count; chRec++, count — ) { 
switch ( chRec->character ) { 
case scWordSpace: 

if ( BRKStillMoreChars( chRec, (long)count ) ) 

spaces++ ; 
break; 
default : 

boxWidth +» chRec -> escapement ; 
break; 

} 

C3> 

•, *i 

^ delta ■ measure - boxWidth; 
^if ( spaces ) { 

fU delta - scRoundMP( (REAL) delta / spaces); 



for ( chRec=holdChRec, count « stop-start; count; chRec++, count — ) { 
switch ( chRec->character ) { 

~4 case scWordSpace: 

(2 if ( spaces ) { 

**" spaces — ; 

* if ( Ichanged && chRec->escapement ! = delta ) 

ll changed « true; 

vi chRec->escapement » (GlyphSize)delta; 

M default: 

p break; 

a } } 
} 

return changed; 



/•••«***•.••*•«•***.*••••****«••**•»**•••*•«*•»*•*•*****•*«*«*••••*»•**•*/ 

#if 0 

static void BRRChar Japanese ( ) 
{ 

MicroPoint ad j ustableSpace ; 

UCS2 theCharacter; 
CharBits cb; 
Bool noStartline, 
noEndline; 



ad j ustableSpace - gbrS .desiredMeasure - gbrS .cB .curBox; 
theCharacter - gbrS .cB .theChRec-> character; 

cb - TSCharBits( scCachedStyle : :GetCurrentCache ( ) . fmTheSpec, theCharacter ); 

if ( cb.fTheBits.fCharClass ) 
noStartline - true; 
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if ( cb.fTheBits.fCharClass ) 
noEndline * true; 

else 

noEndline ° false; 



// ValidateBits( theCharacter, cb ); 



/» inhibit breaks in •/ 

/« target sequence «/ 



if ( gbrS . numTargetChars > 0 ) { 
gbrS .numTargetChars — ; 

}• 

else { 

/* set a potential break before every character •/ 

if ( !( noStartline || gbrS . f NoStartline ) ) { 
BRKSetCandBreak ( eCharBreak ) ; 

if ( BRRExceedVals( adjustableSpace ) ) { 
BRKLineDecision( 0 ); 
return BRRExitLoop( ); 

} 

} 

if ( gbrS.firstBox ) 
BRRSetFirstBox( ); 



□ gbrS .cB .curBox +- gbrS .cB .theChRec -> escapement ; 



C^if ( noEndline || ( I scCachedStyle : :GetCurrentCache ( ) . fmBreakableNumbers && cb.fTheBits.f Digit ) 

)fy 

^2 gbrS.f NoStartline =» true; 



else 



gbrS.f NoStartline = false; 



r^if ( cb.fTheBits.fHangable ) 

%=f gbrS.cB.fHangable = gbrS .cB .theChRec -> escapement; 
5 else 



Q gbrS.cB.fHangable ■ 

* J 

; lgbrS.cB.chCount++; 
y gbrS . cB . streamCount ++ ; 
r - gbrS . cB . theChRec++ ; 

#eadif 

is* 

/«****•*«•«*«*«••*****•**»< 



0; 



CandBreak& CandBreak : : operator- ( const CandBreak& cb ) 
{ 



breakCount 


B 


cb . breakCount ; 


startCount 




cb .startCount; 


streamCount 




cb . streamCount ; 


wsSpaceCount 




cb . wsSpaceCount ; 


spaceCount 




cb .spaceCount; 


trail ingSpaces 




cb .trail ingSpaces; 


chCount 




cb .chCount; 


fillSpCount 


at 


cb.fillSpCount; 


lineVal 




cb. lineVal ; 


breakVal 




cb .breakVal ; 


minGlue 


S 


cb .minGlue; 


opt Glue 




cb .optGlue; 


maxGlue 




cb .maxGlue; 


curBox 




cb.curBox; 


fHangable 




cb . fHangable; 


theChRec 


sa 


cb .theChRec; 


specChanged 




cb . specChanged ; 


spec 


S 


cb.spec; 


specRec 


S 


cb.specRec; 
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File: SCBREAK.H 



$Header: /Pro jects/Toolbox/ct /SCBREAK.H 2 5/30/97 8:45a Wmanis $ 
Contains: LineBreaker interface 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H__SC BREAK 
#define _H_SCBREAK 

#ifdef SCMACINTOSH 
^pragma once 
#endif 

#il£&lude "sccolumn.h" 

Q 

tyf[§def enura eHyphenRanks { 

ryeDiscHyphRank * 1, 

s * eBestHyphRank , 

'% J eGoodHyphRank , 

iijeBadHyphRank 
} ©HyphenRank; 

C3 

struct Hyphen { 

^ short offset; 
"^eHyphenRank rank; 

\& 

/H^^nansooBiaiBoooaooaejanBcoannnaceaaaisotsiaiaiat! tassoxsesEaoss »/ 
/tkh ssssssBssssBBaeBBatiaasassesenasnBassaa&ennssana * / 

u 

#include "screfdat .h" 



class scSpecRecord; 
class scRubi Array; 
class scLEADRefData; 
class scLINERefData; 



class DCState; 

eBreakType BRKRomanLineBreak ( CharRecordP, 

long, 
long&, 

scLINERefData&, 
short , 
short &, 

scSpecRecord **, 
scXRect&, 
GlyphSize& ); 



#ifdef scJIS4051 
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eBreakType BRKJapanLineBreak ( CharRecordP, 

long, 
long&, 

scLINERefData&, 

#ifdef scUseRubi 

scRubiArray «, 

#endif 

short, 
shortfic, 

scSpecRecord **, 
scXRect&, 
GlyphSize&, 
DCState& ); 

//MicroPoint BRKComposeRenMo j i ( CharRecordP chRec, TypeSpec ts, scFlowDir& fd, Bool fit ); 
#endif 

Bool BRKJustify( CharRecordP, long, long, MicroPoint ); 

#endif /» _HSC BREAK */ 



C3 

S" 

f y 
o 
u 

v i 



ly 



C3 
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/•*•*•**••«*••••••••*••»«•« 

File: sccallbk.h 



$Header: /Pro jects/Toolbox/ct /SCCALLBK.H 2 5/30/97 8:45a Wmanis S 
Contains: The call backs to the client from the composition toolbox. 
Written by: Manis 

Copyright (c) 1989-1994 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc . 

@doc 

**«*«««»*»««*«»«*«***««*«**«««»*»^ 

#ifndef _H_SCSPECSY 
#define _H_SCSPECSY 

#ifdef SCMACIOTOSH 
#pragma once 
#e$$if 

#in]61ude "sctypes.h" 

r Pi 

/*j!*$ P onaaoosoososssDoaeaDadBBeBBaBnBsooBnBnBODsaseaDDsaasBsssaDBcosticDocinf/ 

// the following are call backs that the application must support 
//Mn order for the above selection messages to work properly. 

//W 

""•4 

n 

/^"©CALLBACK Provides the Toolbox with the drawing 

//s context of the column, used for highlighting or drawing. 

//Q 

st^Jus scIMPL_IMP0RT APPDrawContext ( 

"\ APPColumn appCol , // @parm <t APPColumn> 

const scColumn* col, // @parm <c scColumn> 

\± APPDrwCtxSt drwctx ); // @parm <t APPDrwCtx> 



//^=€ALL BACK - this informs the composition toolbox whether it should recompose 

// this column or not, the client may prevent recomposition of columns that are not 

// visible, though keep in mind that if a subsequent column is visble we 

// will have to recompose this column at some point in time. 

Bool scIMFL„IMPORT APPRecomposeColumn ( APPColumn ); 

/ * aaaBBBanSBBoenDtsnasaDasaBsaaBBBSDBBaaaEBaBaDDnBBnsBoeinnesaDDmDsaasao */ 

// @CALLBACK Maps a pointer of a client object to an ID on disk. Typically 
// a Type Spec . 

enum stDiskidClass { 
d i sk i dUnknown , 
diskidColumn, 
diskidTypespec, 
diskidOther 

}; 

long scIMPL_IMPORT APPPointerToDiskID ( 

APPCtxPtr, 

void* clientObj, // @parm Pointer to client object. 

stDiskidClass ); // class of object 



// ©CALLBACK Maps a disk ID to a pointer. Typically a TypeSpec . 
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void* scIMPL_IMPORT APPDiskIDToPointer( 

APPCtxPtr, 



long diskID„ // @parm A value returned by <f APPPointerToDiskID> 

// that we want a valid pointer to now. 
stDiskidClass ); // class of object 



// 

// called periodically by the Toolbox during actions 

// that will take some time. If the call for an event returns 0, 

// the action will be aborted and control will revert to application. 

// The client can give the Toolbox and hint as to how much more time 

// it can process for. The client can return a negative number as 

// an indicator to get out fast . 

// 



// this describes the current process type that the toolbox 

//is performing, 
typedef enum scProcTypes { 

scDrawProc, // toolbox is drawing 

scRe forma tProc // toolbox is reformatting 
} scProcType; 



scTicks scIMPL„IMPORT APPEventAvail ( scProcType ); 

/* as&oeDoocanoBaoBssnessssnmessBDeaanaoanneaeanmnDDanDBOBESOSBaooBSSiss * / 



//f=@enum eSpecChange | When a TypeSpec is changed externally to the 
//^Toolbox, the Toolbox needs to be informed that a change has occurred 
/^4o that reformatting may occur. In an effort to minimize the work 
//C^the function <f SpecTaskCalculate> can calculate the minimum amount 
//fipf work that needs to be done. (e.g. changing the color of a spec 
//^hould only require repainting and not reformattion, 
//^pecTaskCalculatefscColor) would return eSCRepaint ) With the return 
//lvalue of SpecTaskCalculate one can inform the Toolbox about the changed 
//^spec <f SCENG_ChangedTS> ( ts„ <t eSpecTask>„ <c scRedispList> ) and 
//^dget information about the minimal area to update. 

ty&edef enum eSpecChanges { 
f 2 scLanguage, 
i.j scFont, 
. - 1 : scColor, 

scRenderAt tribute, 

scCharTransform, 

f 

:!: scPointSize, 
%J scSetSize, 

scHoblique, 

scVoblique, 

scRotation, 



scRern , 
scMarginRern, 
scTrack , 
scMinLsp, 
scOptLsp , 
scMaxLsp, 

scMinWsp, 
scOptWsp, 
scMaxWsp, 

scLead, 
scBaseline, 
scAboveLead, 
scBelowLead, 

sdndLines, 
sdndAmount, 
sdndDepth, 
scIndLeftBL, 
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sdndRightBL „ sdndentExtral „ sdndentExtra2, 

scNoHyphLastWord w 
scColNoBreak, 
scKeepNext , 
scLinesBefore, 
scLinesAf ter. 
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scWidowOrphan Extra 1 „scWidow0rphanExtra2 , 



scRag , 

scForce Just „ 
scRagPattern , 
scRagZone , 
scRernMarg i ns , 
scHLeft, 
scHRight, 
scHLef tAmount , 
scHRightAmount „ 

scHyphenation, 

scHyphChar, 

scHyphLines, 

scHyphExcep , 

scHyphMinSize, 

scPreHyphs, 

scPostHyphs, 

scHyphPropensity, 

scHyphCaps , 

scHyphAcros „ 

_ scDCShow, 
£3 scDCChar, 
3 scDCptSize, 
.lZ scDCsetSize, 
* M scDChOf fset, 
f|j scDCvOffset, 
scDChBorder, 
scDCvBorder, 
_ scDCfont, 
'■■4 scDCcolor, 

£3 

scMaxF i 1 1 Chars , 
s _ scFillPos, 
C3 scFillChar, 
'"-■■J scFillAlign, 

H scMaxTabs, 

^ scTabPos, 

12 scTabAlign, 
scTabChar, 
scTabFi 11 Align, 

scMinMeasure, 

scRunAroundBorder, 

scFirstLine, 



scRagExtra 1 , scRagExtra2 „scHPuncExtra 1 „scHPuncExtra2 , 



scHyphExtral, scHyphExtra2, 



scMaxValType 
} eSpecChange; 



// §CALLBACK Used to determine minimal work on a spec change. 
// @rdesc <t eSpecTask> 



eSpecTask SpecTaskCalculate ( 

eSpecChange specChange ); // @parm <t eSpecChange> 

/• = , =D=aDa==3C2r3CCJ SPEC SUB-YSTEM CALL BACKS »/ 



class scStyle; 



// ©CALLBACK Gets the scStyle structure. 
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status scIMPL_IMPORT TSGetStyle( TypeSpecSc ts, 

scStyleSc style ) ; 



// @parm <t TypeSpeO 
// @parm <c scStyle> 



// ©CALLBACK This call back is used to determine positioning of tabs. 
// @ex Default value for tab positioning might be. | 

xPos / defaultTabWidth + 1 ) » defaultTabWidth ); 



tablnfo .xPos 



( 



status scIMPL_IMPORT TSTabInfo( 



TypeSpecSc 


paraspec , 


// 


paragraph spec 


TypeSpecSc 


ts. 


// 


@parm 


<t TypeSpeO 


scTabInfo& 


tablnfo. 


// 


@parxn 


<t scTabInfo> 


MicroPoint 


xPos, 


// 


@parm 


X position in column. 


MicroPoint 


yPos, 


// 


@parm 


Depth in column. 


long 


lineNum ); 


// 


@parm 


Line num in para. 



// default wordspace 
status scIMPL_IMPORT TSf illCharlnfo ( TypeSpecSc, 

UCS2&, 

eFCAlignmentSc, 
MicroPoint, 
MicroPoint, 
long ); 



// default return false 
Bool scIMPL_IMPORT TSdropCap( TypeSpecSc, // para spec 

TypeSpec&, // character spec 

DCPositionSc, // position struct 
UCS2 ) ; // dropcap character 

//line Bool TSdropCap( TypeSpec, DCPositionSc ) { return false; } 

13 

/*, DiaeaeDaBaattsctsaaenaoeaatsnooananDOBBDsOBedetsooaoeoneasnnoDnsonBscnDD » / 
soDeBasBSBaBaaeBSBassassncaoBBSSBsssBaaanaseassBsasoesBaBaaasssaBBaa */ 

//rLeOLUMN SPECIFICATIONS - 'CS' 

5 \r// By sending in the two specs the spec management system may generate 
a value intelligently, either a hard coded value or parametrically 
* 4 // derived value using the pointsize of the type 

//CALLBACK Position of first line in a column, default should 

//Jae point size, this is not for use with dropcaps. Client 

//C3nay return any reasonable value and may use none, one or 
/^Jjoth of the parameters. 

MicroPoint scIMPL_IMPORT CSf irstLinePosition ( 
;~ APPColumn appcol, // @parm <t APPColumn> 

M TypeSpec ts ) ; // @parm <t TypeSpeO 

S3 

//f =@CALLBACK Position of last line in a column, 
//default should be zero since this will allow 
// multiple columns with different pointsizes 
// to bottom align. 

MicroPoint scIMPL_IMPORT CSlastLinePosition ( 

APPColumn appcol, // @parra <t APPColumn> 

TypeSpec ts ) ; // @parm <t TypeSpec > 



// ©CALLBACK Border to inset text from shape applied to 

// column -- default is 0, the spec is the first 

// encountered in the column. 

inline MicroPoint CSrunaroundBorder ( 

APPColumn appcol, // @parm <t APPColumn> 

TypeSpec ts ) // @parm <t TypeSpec > 

{ return 0; } 

/* sBSBBBBBBBBasBaBBBaBBBBBBBeaBaaaaaaBBBBaaBBBBBaBBBBBBBaaasaaBBBSBBBB * / 
/* oacBsrsosBoafiSBOBBos, FONT METRIC CALL BACKS o = n C nn = cn3CaCCa D = = = oo = 3 nn = n3 »/ 
/* BaBBSBBBBBBaBBBBaBBBBBBBBaBaaaBaBaaBBaBSBBBBBBasDSBeaaaaeBBBaDBBBBBD */ 



/////////// DESIGN METRICS ///////////////////////////// 
// DESIGN COORDINATES ARE THE RELATIVE UNIT SYSTEM DEFINED 
// IN scBaseRLUSystem 

// ©CALLBACK Return the escapement of the glyph in design coordinates. 
// 
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RLU scIMPL_IMPORT FIgetRLUEscapement ( 

const scFontRenderSt fr r // ©parm <t scFontRender> 
UCS2 ch ); // ©parm Glyph. 

RLU scIMPL_IMPORT FlgetRLUEscapement ( const scFontRenderSt, 

UCS2, 

RLU /»suggestedWidth*/ ); 

// ©CALLBACK Return the kerning value of the glyphs in design coordinates. 

// 

RLU scIMPL.IMPORT FIgetRLUKern ( 

const scFontRenderSt fr, // @parm <t scFontRender> 
UCS2 chl, // ©parm Glyph one. 

UCS2 ch2 ); // ©parm Glyph two. 

// ©CALLBACK Return the glyph ink box in design coordinates 

// 

scRLURectSc scIMPL_IMPORT FIgetRLUExtents ( 

const scFontRenderSc fr, // ©parm <t scFontRender> 
UCS2 ch, // ©parm Glyph one. 

scRLURectSc inkBox ); // ©parm <c scRLURect> 

// ©CALLBACK Return the various font metrics in design coordinates 
void scIMPL_IMPORT FIgetRLUFontExtents ( 

const scFontRenderSt fontrender, // ©parm <t scFontRender> 

RLU& capHite, // ©parm Cap height. 

RLUSt xHite, // @parm Lower case x height. 

RLU& ascenderHite, // ©parm Ascender height. 

RLUSt descenderDepth, // ©parm Descender height. 

£3 scRLURectSt maxInkExt ); // ©parm <c scRLURect> union of 

fc 3 // ink extents of all glyphs in 

IZ // font, 

Q /////////// DEVICE METRICS ///////////////////////////// 

/v£ ^CALLBACK Return the escapement of the glyph in device coordinates 
//-^ transformed into toolbox coordinates ). 
Gl^hSize scIMPL_IMPORT FIgetDEVEscapement ( 

const scFontRenderSt fr, // ©parm <t scFontRender> 
a UCS2 ch ); // ©parm Glyph. 

H 

GlyphSize scIMPL_IMPORT FIgetDEVEscapement ( const scFontRenderSt, 
)'Z VCS2, 

i A GlyphSize /»suggestedWidth*/ ); 

£3 

//f^eCALLBACK Return the kerning value of the glyphs in device coordinates 
transformed into toolbox coordinates ) . 

GlyphSize scIMPL.IMPORT FIgetDEVKern ( 

const scFontRenderSc fr, // @parm <t scFontRender> 
UCS2 chl, // ©parm Glyph one. 

UCS2 ch2 ); // ©parm Glyph two. 

// ©CALLBACK Return the glyph ink box in device coordinates 
// ( transformed into toolbox coordinates ) . 

// 

scXRectSt scIMPL_IMPORT FIgetDEVExtents ( 

const scFontRenderSt fr, // ©parrn <t scFontRender> 
UCS2 ch, // ©parra Glyph one. 

scXRectSt inkBox );// ©parm <c scXRect> 

// ©CALLBACK Return the various font metrics in device coordinates 
// ( transformed into toolbox coordinates ) . 

void scIMPL_IMPORT FIgetDEVFontExtents ( 

const scFontRenderSt fontrender, // ©parm <t scFont Render > 

MicroPointSt capHite, // ©parm Cap height. 

MicroPointSi xHite, // ©parm Lower case x height. 

MicroPointSt ascenderHite, // ©parm Ascender height. 

MicroPointSi descenderDepth, // ©parm Descender height. 

scXRectSt maxInkExt ); // ©parm <c scXRect> union of 
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// ink extents of all glyphs in 
// font. 



/* == 



HYPHENATION SUB-SYSTEM 



3 «OOB */ 



// ©CALLBACK Initializes the Hyphenation subs-sytem to the indicated langauge. 
// Returns true if language properly inited. 



// 



Bool scIMPL_IMPORT HYFLanguagelnit ( 

APPLanguage lang ); 



// ©parm <t APPLanguage> 



// ©CALLBACK Chars are in word, NULL terminated, return hyph values in hyfs, max 

// len of either is 64. if word is hyphenated return true. 

// 

Bool scIMPL_IMPORT HYFWord ( 

const UCS2* theWord, 
short* hyphArray ) ; 



// ©parm The word. 
// ©parm The hyphenation array. 



/* aBDSBaeaoeoons 
/* BoooanaaaeDOBS 
/* sossBSBssssasss. 



- CHAR DRAWING CALLBACKS — = 



»/ 
*/ 
»/ 
*/ 
»/ 



//©CALLBACK Called before the start of drawing a line, 
vofii scIMPL IMPORT 



ry 



APPDrawStartLine ( 

APPDrwCtx drwctx , 

MicroPoint x, 

MicroPoint y, 

const scXRect& inkext ) , 



// @parm <t APPDrawCtx> 

// ©parm X origin of line. 

// @parm Y origin of line. 

// @parm Max ink extents of line. 



/i '^CALLBACK Called n times ( for each style or full buffer ) between a APPDrawStartLine 
/>&nd an APPDrawEndLine. 
//f^xref <f SCCOLJJpdate> 
voTd scIMPL_IMPORT APPDrawString ( 

^ APPDrwCtx 

C3 const scGlyphArray* 

short 

.1 MicroPoint 

MicroPoint 

M const scGlyphInfo& 



dc„ // ©parm Pass thru context. 

ga„ // ©parm <t scGlyphArray> array. 

num,// ©parm Number of glyphs in array. 

x, // ©parm X origin of string. 

y, // ©parm Y origin of string. 

gi ) ;// ©parm <t scGlyphInfo> 



/X ^CALLBACK Called at the end of drawing a line, 
v&a scIMPL_IMPORT APPDrawEndLine ( 

APPDrwCtx dc ); 



// @parm <t APPDrwCtx> drawing context. 



// ©CALLBACK Used to draw hi li ting rectangles, 
void scIMPL_IMPORT APPDrawRect( 

const scXRect& xorRect, // ©parm <c scXRect> to xor. 

APPDrwCtx dc, // ©parm <t APPDrwCtx> drawing context. 

Bool sliverCursor ); 

void scIMPL_IMPORT APPDrawRule( const scMuPoint&, 

const scMuPoint&, 
const scGlyphInfo&„ 
APPDrwCtx ); 

/* ooonaoaeeBBonaooisBBamnJBnisaBtteoeaoBBanonnBoonnasinooaBBonBBonaoDaaoiaa »/ 
/» assoosassaoDcoasaDBSBBoaBBBassDsoneBaeaoaBooBaBSBaceaBaaeBoosaDaBBea */ 
/* DOBDBeaaBneBBBBBBBBOBaBBBBBaaaaBanaaBBnasBaxBBBBBBBBBcaaaoaemaaBBBBS */ 

class clField { 
public: 

static clField& createFieldf scStream*, uintB ); 
virtual uint8 id() const = 0; 
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virtual void release () =0; 

virtual void content ( stUnivStringS., APPColumn, TypeSpecSc ) 

}; 

#endif /» _JL.SCCAI.LBK •/ 
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File : SC-SpecChng .c 

SHeader: /Projects/Toolbox/ct/SC_SPCHG.CPP 2 
Contains : 



5/30/97 8:45a Wmanis $ 



When type specs change their are certain types of things that need 
to be done to bring the world back into equilibrium. These tasks 
typically involve REFORMATTING and REPAINT. Since a certain number 
of the formating computations are held with the characters themselves 
the reformatting requires two operations. We will call these 
RETABULATION - correcting the escapement stored with the characters - 
and the LINEBREARING - the act of breaking text into lines. 

Therefore when a spec changes one or more tasks may need to 
be performed , we want to determine the minimum set of tasks to 
perform to return the world to equilibrium. 

The tasks are performed in the following order: 

TABULATION 
LINE BREAKING 
PAINTING 

Here a few examples of spec changes and what they should cause: 



color change 

word space change 

lead change 

font change 

pointsize change 

setsize change 

pair/track kerning change 

hyphenation language change - 
# of consecutive hyph change - 



scREPAINT 

sc RE BREAK & scREPAINT 
scRE BREAK & scREPAINT 
scRETABULATE , scREBREAK & scREPAINT 
scRETABULATE, scREBREAK & scREPAINT 
scRETABULATE , scREBREAK & scREPAINT 
scRETABULATE, scREBREAK & scREPAINT 

scRETABULATE, scREBREAK & scREPAINT 
scREBREAK & scREPAINT 



Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "sccallbk ,h" 

eSpecTask SpecTaskCalculate ( eSpecChange changeType ) 
{ 

switch ( changeType ) { 
case scHoblique: 
case scVoblique: 

return (eSpecTask) ( (int)eSCRetabulate | (int)eSCRepaint) ; 

case scLanguage: 
case scFont: 
case scCharTransform: 
case scPointSize: 
case scSetSize: 
case scRotation: 
case scKern: 
case scTrack: 
case scMinLsp: 
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case scOptLsp: 
case scMaxLsp: 
case scMinWsp: 
case scOptWsp: 
case scMaxWsp: 
case scHyphenation : 
case scHyphLines: 
case scHyphExcep: 
case scHyphMinSize: 
case scPreHyphs: 
case scPostHyphs: 
case scHyphPropensity : 
case scHyphCaps: 
case scHyphAcros: 
case scHyphExtra 1 : 
case scHyphExtra2 : 
default : 

return eSCRetabulate; 

case scColor: 

case scRenderAt tribute : 
// case scULShow: 

// case scULpos: 

// case scULthick: 

// return eSCRepaint; 

case scLead: 
case scBaseline: 
case scAboveLead: 
12 case scBelowLead: 

.1 case scIndLines: 

iZ case scIndAmount: 

•J; case sdndDepth: 

'LI case scIndLeftBL: 

case sdndRightBL : 
case scIndentExtral : 
case scIndentExtra2 : 
case scColNoBreak : 
case scKeepNext : 
case scLinesBefore : 
case scLinesAfter : 
case scWidowOrphanExtra 1 : 
case scWidow0rphanExtra2 : 
case scRag: 
case scForce Just : 
case scRagPattern : 
I j case scRagZone: 

case scKernMargins : 
v ~ case scHLeft: 

case scHRight: 
case scHLeftAmount : 
case scHRight Amount : 
case scRagExtral: 
case scRagExtra2: 
case scHPuncExtra 1 : 
case scHPuncExtra 2: 
case scDCShow: 
case scDCptSize: 
case scDCsetSize: 
case scDChOffset: 
case scDCvOffset: 
case scDChBorder: 
case scDCvBorder: 
case scDCfont: 
case scDCcolor: 
case scMaxFillChars : 
case scFillPos: 
case scFillChar: 
case scFillAlign: 
case scMaxTabs: 
case scTabPos : 
case scTabAlign: 
case scTabChar: 



5 : i 



£ 
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case scTabFi 11 Align: 

case scMinMeasure : 

case scRunAroundBorder : 

case scFirstLine: 

return eSCRebreak; 

} 

} 
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File: SCLSYSCO.C 



SHeader: /Proj ects/Toolbox/ct/SC_SYSCO . CPP 2 5/30/97 8:45a Wmanis $ 

Contains: Implementation of transfer of clipboard data 
to external format. 



Written by: Lucas 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

••••••**•»*•»•••••««••*«••«**»•»•*»**•»•*•*•«•*•*•*•*••»»«»»/ 



/» THESE ARE STUBS AND ARE BY NO MEANS COMPLETE OR ROBUST «/ 



^include "sctypes.h" 
#ifdef SCMACINTOSH 
#include <Memory.h> 
#endif 

C3 

y£H BaaocDBaitDaBBOBnBiinaaQoaaoonoantiaoBnDaoatiaecitsaoBSBaanoaaneBaiitieeasB * / 

^SystemMemoryObject : : SystemMemoryOb j ect ( ) 

ri 

,#if defined ( SCWINDOWS ) 

, ,a : fSYSHandle « GlobalAlloc( 0, GPTR ); // since GHND allows only 64k bytes 

Ijfolif defined ( SCMACINTOSH ) 

h -4 fSYSHandle - NewHandle( 0 ); 

f fend if 

? 

^ |( ^» BaaBBBSD&BBasaBsnBDBBBattBeasesaBBasBeBaBBaBBaBaBBSBOBPaoBDBsaBSDesaa * / 

- : 

1 . ; 

; SystemMemoryOb j ect : : ~ SystemMemoryOb j ect ( ) 

v i 

Hit defined ( SCWINDOWS ) 
p if ( fSYSHandle ) 
f = GlobalFree( fSYSHandle ); 

-#elif defined ( SCMACINTOSH ) 
if ( fSYSHandle ) 

DisposHandle( fSYSHandle ); 

#endif 
} 



void SystemMemoryOb j ect : :ReleaseMem( ) 
{ 

fSYSHandle = 0; 

} 

/• nBBnncieonDaaninaooBniionncoifflDinnonjaBanBanafflBaaanaBocDnanisnciooooBncsaison »/ 



long SystemMemoryOb j ect : :HandleSize( void ) 
{ 

#if defined ( SCWINDOWS ) 

return (size_t )GlobalSize ( fSYSHandle ); 
#elif defined ( SCMACINTOSH ) 

return GetHandleSize ( fSYSHandle ); 
#endif 
} 



/* BBBaBaeBBBBBBeaBBSBaaBaBBBSBaBBaaaaBaaBBBBBSBBsaaBaBBaBaanBB 
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status SystemMemoryOb j ect : iSelHmdleSize ( long newsize ) 
{ 

#if defined ( SCWINDOWS ) 

fSYSHandle » GlobalReAlloc ( fSYSHandle, newsize, GMEM_MO VEABL E | GMEH-ZEROINIT ), 

return fSYSHandle 1=0? scSuccess : scERRmem; 
#elif defined ( SCMACINTOSH ) 

: :SetHandleSize( fSYSHandle, newsize ); 

return MemError() «« noErr ? scSuccess : scERRmem; 
#endif 
} 

/* BBBaaBBBBaaaaanBaaasBBBBaaBBBaBaaaaBBBBBBSSBaBnBBBBBsaaaBBBeBBSBaBaa * / 

void *SystemMemoryObject : :LockHandle ( void ) 
{ 

#if defined ( SCWINDOWS ) 

return GlobalLock( fSYSHandle ); 
#elif defined ( SCMACINTOSH ) 

HLock( fSYSHandle ); 

return -fSYSHandle; 
#endif 
} 

/ * BBBBaaBaaaBaaBOBOsaaaaaaaBaaaaaBaBasaaanBaaaaaBBaBaaBssaBasaaaaaaaBa • / 

void SystemMemoryOb j ect : :UnlockHandle( void ) 
{ 

#if defined ( SCWINDOWS ) 
C3 GlobalUnlock( fSYSHandle ); 
"*|elif defined ( SCMACINTOSH ) 

HUnlock( fSYSHandle ); 
£#endif 

m 

/^*BaaaaBaaaa BaaaBaaassBS aaaaaaaaaa BaaaaBaasB as aaa a aaa Baaa aaaaaaaaaa aaB*/ 

y 
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/* mapping on reading input bu| 

#ifndef noCMinputMap 

UCS2 CMinputMapf ushort ch ) 
{ 

return ch; 

} 

#endif /* noCMinputMap */ 



lor file «/ 




#ifndef noCMmakeKeyRecordTwo 

void CMmakeReyRecordTwo ( scKeyRecord& 

UCS2 

GlyphS ize 

TypeSpec 

Bool 



keyRecord , 
keyCode, 
val, 
spec, 

res toreSe 1 ec t i on , 



{ 



scStreamLocationSc mark ) 



keyRecord . keycode ( ) 
keyRecord . replacedchar ( ) 
keyRecord . escapement ( ) 
keyRecord . spec ( ) 
keyRecord . noop ( ) 
keyRecord .res to re select ( ) 
keyRecord .mark ( ) 



■ keyCode; 

- 0; 

» val; 

- spec; 
« false; 

« restoreSelection; 
= mark; 



»\#endif /* noCMmakeKeyRecordTwo */ 



i'J 
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File: SCLlrtlWI.C 



SHeader: /Projects/Toolbox/ct/SC.LTTLWI .CPP 2 5/30/97 8:45a Wmanis $ 
Contains: WINDOWS versions of low level debugging stuff 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



*•••«*»•*••••««**••**•••**»**•**»•«•»««•»«•*•*»**»•••»*••»«*»•«*/ 

#include "sctypes .h M 
^include "scexcept .h" 

/» naoBCiBtiBsaaiiaaaDnaDotiDaDonosasoooeaoaeoaiinsnnaseDBODBoaBiEDQell/ 

void SCDebugStr ( const scChar* cstr ) 

CO 

OutputDebugString ( cstr ); 

}£ 

Ife: » 

5 ypid SCAssertFailed ( const scChar* assertStr, 

const scChar* file, 
int lineNum ) 

scChar buf[256]; 

z 

tj if ( scStrlen( assertStr ) + scStrlen( file ) + 4 < 256 ) 

wsprintf( buf, scString( "ASSERT FAILED V'XsV* file V'£s\" line #*d\n" ), 
|1 assertStr, file, lineNum ); 

-~ else 

M scStrcpy( buf, scString( "ASSERT STRING TOO LONG ! ! I! \n " ) ); 

a» SCDebugStr( buf ); 

#if SCDEBUG < 1 

raise ( scERRassertFailed ); 
#else 

SCDebugBreak ( ) ; 

// set doit to true if you want to raise an exception 
int doit = 0; 
if ( doit ) 

raise ( scERRassertFailed ); 

#endif 
} 

/• aaBBBaaBnBDnasBBBDBatisoBsaDOBaBaeeaBDeasDasaBaosoeaeseDeecBBi/ 

void SCDebugBreak ( void ) 
{ 

#if SCDEBUG > 1 

DebugBreak() ; 
#else 

#ifdef _WIN32 

Beep( 500, 100 ); 

#else 

MessageBeep( -1 ); 

#endif 
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void SCSysBeep( long duration ) 
{ 

#ifdef .WIN32 

Beep( 500, duration ); 

#else 

MessageBeep ( - 1 ) ; 

#endif 
} 

/» asaaBatsnBDaBBBDooDooaoBnoBneaoaoEina aoeoaaBiannnnaonoaeaBaanBa*/ 



ru 
u 

C3 
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/«•••*•*••••*•*•••«•»•»*** 

File: SC.UTLTC.C 




$Header: /Projects/Tool box/ct/SCJJIMAC .CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Think C untilities 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

**•••**••«••••••••••«•*••••••••••*••**«»••••»•»»«*««««•«••*«»•«»/ 

//^include "scport.h" 
//^include "capplica.h" 
//#include "constant .h" 
//#include "tbutilities .h" 

#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
f Include <Dialogs.h> 
include <SegLoad.h> 
&fnclude QuickDraw. h> 
include <0SUtils.h> 

i y 

include "scTypes.h" 

k'4i defined ( THIWK_CPLUS ) && THIN^CPLUS < 0x0700 

^ J #include <pascal -h> 

#else 

lc? #include <Strings.h> 
#endif 

□ 

Bcjolean gSCUseSysBreak ; 

U 

jUt * osaseBeDaaaaneasDSOoeiaaaBtiaBesBSBBBnaannnaooooBOsaDaDnccDRonoaeaosaeaBaB * / 

vqid SCDebugStr( const char *str ) 

^ char buf[256]; 

strcpy( buf, str ); 

// if ( gApplication->TestDebuggerPresence() ) { 
if (gSCUseSysBreak) 

SysBreakStr( c2pstr( buf ) ); 

else 

DebugStr( c2pstr( buf ) ); 

" } 

// else { 

// ParamText( c2pstr( buf ), (StringPtr) " " , (StringPtr) " " , (StringPtr) " " ) ; 

// PositionDialog ( 'ALRT' , ALRTgeneral ) ; 

// InitCursor() ; 

// Alert (ALRTgeneral, NULL); 

" } 

} 

/• BaBSBDesBBflaaeiBaBBDSssscBnBoaoeBaBBiiaBaaBeBBBBRBBBaoBnesDaBDBBaDaoBBBaBa * / 

void SCAssertFailed( const scChar «str, const scChar *file, int line ) 
{ 

char buf [256] ; 

sprintf( buf, "ASSERT FAILED \"Zb\" File Zs Line 5£ld n , str, file, line ); 
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SCDebugStr( buf ) ; 

} 




/* BaBaBaBaBBaBBBaBBBSBBBBaaaBBaBBBBBaBssBBaBBBBBBBaBasaaaaaoaBss&BBBBBBSBa * / 

void SCDebugBreak ( void ) 
{ 

DebugStrf " \pSCDEBU6BREAK " ); 

} 

/* aS3aBBSBBBBBBBBBBSBBB8BBBBBB8BC9aaBBBBBBaSBBa»SBaBBBBBBBBBBBB33BSBBBBBSBaB */ 
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File: SCAPI.C 



$Header: /Projects/Toolbox/ct/SCAPI .CPP 3 5/30/97 8:45a Wmanis $ 

Contains: Application Program Interface for the 

Stonehand Composition Toolbox. For the most part 
this file is simply a bottle nect module. All 
documentation for the functions contained within 
are found in scappint.h. 

Written by: Manis 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



£3 

t #include 
^Sinclude 

cn 
fu 

, ^include 
^include 
*#include 
*<fi nc lude 
f ^include 
"^include 
~#include 
Cf include 
*#include 
, Ifinclude 
^include 
|#include 

U 



"scappint.h" 
"scpubobj .h" 



"scannota .h" 
"scapptex .h" 
"sccolumn .h" 
"scexcept .h" 
"scstcach.h" 
"scglobda.h" 
"scmem.h n 
"scparagr ,h" 
"scregion .h" 
"scset.h" 
"scstream.h" 
"sctextli .h" 



^static int 
static int 
int 



glnited; 

gBaseError; 

scDebugTrace 



0; 



#if 0 

static int glnputLevel; 

//if scDebugTrace is set to a value >0 all calls into 

// the toolbox will be traced, may be useful for understanding 

// a behavior or pointing the finger! 

inline void EnterMonitor ( const scChar *str ) 
{ 

scAssert( glnited ); 

SCDebugTrace ( 0, scString( n \n+£s\n" ), str ); 

} 

inline void ExitMonitor( const scChar *str ) 
{ 

SCDebugTrace ( 0, scString( "-3£s\n" ), str ); 

} 

#else 
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^define EnterMonitor( x ) 
#define ExitMonitor( x ) 
#endif 



void BRKInitMach( void ); 

void BRKFreeMach( void ); 



char* stoneVersion 



_DATE_ 



TIME. 



status scIMPLJXPORT SCENG_Init( int baseError ) 



{ 



// The following are pool definitions that are passed 
// to the initiailization of the memory manager. 
// The last pool is the default memory allocation pool 
//all others are fixed size pools, these are not sorted 
// at this time 
static scPoolInfo objPools[] « { 
{ sizeof ( scTextline ), 
{ sizeof ( scContUnit ), 
{ sizeof ( scAbs tract Array ), 
{ 0, 



} 



#ifndef useCPLUSEXCEPTIONS 

tj // if we are not using C++ exceptions 

fc ^ // exception manager. 

I* scExceptContext :: Initialize ( 0 ); 

3 *#8ndif 

fy 

v i 

r ^ 
*// 



initialize our own 



u 

3 



status stat ■» scSuccess; 
gBaseError *» baseError; 
try { 

MEMInit( objPools ); 
scAssert( sizeof ( CharRecord ) * 
BRRInitMach(); 

scCachedStyle: :BuildCache( 16 ) t 
glnited true; 

} 

IGNORE_RERAISE; 
return stat; 



// initialize memory manager 
( sizeof ( long ) * 2 ) ); 
// initialize breaking machine 
// build internal spec cache 



/« 



status scIMPL_EXPORT 
{ 

status stat - scSuccess 



SCENG_Fini ( void ) 



try { 

scAssert( glnited ); 
BRRFreeMach( ); 
scColumn: :FiniCTXList ( ) ; 
scCachedStyle : :DeleteCache ( ) ; 

glnited « false; 
MEMFini ( ) ; 

} 

IGNORE_RERAISE; 



return stat; 



/* eamoDBaaoaBtinanaoi: 

status sc I MP L EXPORT 



SCENG_Re ta i nMemory ( voi£ ) 
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{ 

// MEMSetRestrictions( meJBPtain ); 
return scSuccess; 
} 

/* BBeaasDaDDaaaaaDaBOSBeoDaaoBaBBOooassanDBsaDoiisoaosBaBSDsaoooDoaitioaa */ 

status scIMPL_EXPORT SCENGJJseRetainedMemory (void ) 
{ 

// MEMSetRestrictions ( memUseRetained ); 
return scSuccess; 

} 

/* aaBBBBBBBaoBBBBBaBBBBBaBBBBiiBsaBOBaBBBBBBBaEBBaaBBnBBBBnBSoaBaaoBBBB * / 

status scIMPL_EXPORT SCENG ReleaseMemory ( void ) 
{ 

// MEMSetRestrictions ( meinNoRestrictions ); 
return scSuccess; 

} 

/* DBBBasBBBBBBBBBBBBBBDSDeaaBSSBaBCBBBiinaaBBaoBBBaBBOSBaflaoDaaBBBBBBBB * / 

status scIMPLJXPORT SCENG_ChangedTS ( TypeSpec ts, 

eSpecTask task, 
scRedispList* redispList ) 



{ 



C3 



status stat - scSuccess; 

EnterMonitor( scString( "SCENG_ChangedTS" ) ); 
scCachedStyle: :StyleInvalidateCache ( ts ) ; 



try { 

r LJ if ( task & eSCDoAll ) 

^3 scColumn: :ChangedTS( ts, task, redispList ); 

IGNORE_RERAISE; 



Id 



%3 



fj ExitMonitor( scString( "SCENG_ChangedTS" ) ); 
return stat; 



% 

b^fft aBaBBBBBBBBBBBBBBBSDaBeoaaaBSBasaBBBBBBSBBBBasBBBaoaaa&aeBBBBBBBBBBa * / 

Meatus scIMPLJEXPORT SCCHTS_Alloc ( scSpecLocList*& cslist, 
H scStream* stream ) 

^ status stat - scSuccess; 

EnterMonitor( scString( ''SCCHTS_Alloc ,, ) ); 

cslist » 0; 

try { 

cslist ■ SCNEW scSpecLocList ( stream ); 

} 

I(M)RE_RERAISE; 

ExitMonitor( scString( "SCCHTS.Alloc" ) ); 
return stat; 

} 

/* BaBaaaBBBBBBBBBasBBBBBBBBBBaassBBBaBBBBaaeaaa&aBBBBBBBaBaBBaBBaaaBBB * / 

status scIMPL_EXPORT SCCHTS_Delete ( scSpecLocList*& cslist ) 
{ 

status stat « scSuccess; 



EnterMonitor( scString( "SCCHTS.Delete" ) ); 
try { 

delete cslist, cslist - 0; 
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} 

IGNORE_RE RAISE; 
ExitMonitor( scString( "SCCHrSJDelete" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCTSL_Alloc( scTypeSpecList»& tslist ) 
{ 

status stat » scSuccess; 

EnterMonitor( scString( "SCTSL_Alloc" ) ); 
tslist - 0; 
try { 

tslist «= SCNEW scTypeSpecList; 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCTSL^Alloc" ) ); 
return stat; 

} 

/* enonBoonaenoneaaaaenaseBsastissitteoaDBBsaBBBCDacDeBssaoDnnesno 

platus scIMPL_EXPORT SCTSL_Delete ( scTypeSpecList»& tslist ) 
ft status stat = scSuccess; 

; ^ EnterMonitor( scString( "SCTSL_Delete" ) ); 

U try { 

delete tslist, tslist « 0; 

H > 

* w IGNORE_RERAISE; 

s 

£3 ExitMonitor( scString( "SCTSL_Delete" ) ); 

. \ return stat; 



^9 BBOBBaasnaBBOODBDDDeaseioaseBsoaaaoaaaaaaoaaoaaaBaBBeaBBBBi 

z n~ 

btatus scIMPL„EXPORT SCRDL_Alloc( scRedispList*& rdlist ) 
{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCRDL_Alloc" ) ); 
rdlist = 0; 
try { 

rdlist = SCNEW scRedispList ; 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( ^ SCRDL_Alloc ,, ) ); 
return stat; 

} 

status scIMPL_EXPORT SCRDL_Delete ( scRedispList*& rdlist 
{ 

status stat * scSuccess; 

EnterMonitor( scString( "SCRDL_Delete" ) ) ; A 

4 
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} 



try { 

delete rdlist, rdlist =0; 

} 

IGNOREJRERAISE; 

ExitMonitor( scString( "SCRDL_Delete" ) ); 
return stat; 



/* BDBaaeaBacatiQODtiaBtsBaiinaBDaDdsaoDsaeeaBeBBSBaaeDosaBeciaoDeaBBBaDaBiiB »/ 

/* Recompose a single column with extreme prejudice »/ 

status scIMPLJXPORT SCC0L_Recompose ( scColumn* col, 

scRedispList* redispList ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCCOL_Recompose" ) ); 
try { 

col->Rebreak( redispList ); 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCC0L_Recompose" ) ); 
return stat; 

U 

^| BSooiBBBBBBBDaaBeDBBesasBSBgsBSBacaDaBSBeBBSBBesBBBaBaBBBBBBDBeBBBBsa » / 

^| Recompose a single column with extreme prejudice */ 

Status scIMPL_EXPORT SCRebreakCol ( scColumn* col, 

s, i scRedispList* redispList ) 

status stat - scSuccess; 

p EnterMonitor( scString( "SCRebreakCol" ) ); 

5= J col->Rebreak2( redispList ); 

} 

IGNORE_RERAISE ; 

M ExitMonitor( scString( "SCRebreakCol" ) ); 
[3 return stat; 

h 

/• oassseasBBBBoaoaeeoetiDBBOBBaaBBBBBDsaDoasaDSBaaoBaaBBBBBBsseanBOReiea * / 

status scIMPLJEXPORT SCFS_SetRecompose ( scColumn* col, Bool tf ) 
{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCFS^Set Recompose" ) ); 

try { 

if ( col ) 

col->SetRecomposition ( tf ); 

} 

I GN0RE_RERAI SE ; 

ExitMonitor( scString( "SCFS_SetRecompose" ) ); 
return stat; 

} 

/• BDaBDaaaaaaoBBBBBaoaDDBBaBaBBBBBaaaaBBnaBBBBDaaBBSBBBBaDBBoaBooaaBaa «/ 

status scIMPLJXPORT SCFS_Get Re compose ( scColumn* col, 

Bool& tf ) 

{ 

status stat - scSuccess; ^ 
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EnterMonitor( scString( "S^JfoetRecompose" ) ); 

try { 

tf - col->GetRecomposition() ; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCFS_Get Re compose" ) ); 
return stat; 

} 

/* aaoaaesoBBnoDoaaoBaoBoatttaaotistiaaaQoaBDmosaoaoDBtsoBaaoaaiistiasatBDDosDii */ 

status scIMPL_EXPOKT SCFS_Recompose ( scColumn* col, 

scRedispList* redispList ) 

{ 

status stat * scSuccess; 

EnterMonitor( scString( "SCFS_Re compose" ) ); 
try { 

col->RecomposeFlowset ( LONG_MAX, redispList ); 

} 

IGNORE_RE RAISE; 

ExitMonitor( scString( "SCFS_Recompose" ) ); 
return stat; 

} 

£3 

/•j nnonsonBonBenacarmensaaaoniicaBiincnBonBiaiaooninBnnnanDonoaaoaaiiisancnoaisa »/ 

j: zs. 

Status scIMPL_EXPORT SCFS_Recompose ( scColumn* col, 
fy long ticks, 

i 3 scRedispList* redispList } 

- 1 

v~ status stat = scSuccess; 

'*4 EnterMonitor( scString( "SCFS_Recompose M ) ); 

2 _ col->RecomposeFlowset ( ticks, redispList ); 

C3 } 

^ IGNORE_RERAISE; 

j 5 * ExitMonitor( scString( "SCFS„Recompose" ) ); 

M return stat; 



status scIMPL_EXPORT SCCOL„New( APPColumn appName, 

scColumn*& col, 
MicroPoint width, 
MicroPoint depth ) 

{ 

status stat = scSuccess; 

EnterMonitorf scString( "SCCOL_New" ) ); 

try { 

raise_if( width < 0 || depth < 0, scERRinput ); 
col » SCNEW scColumn( appName, width, depth ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL.New" ) ); 
return stat; 

} 

/* BBaoaaBBaaaBaBBaoDBaBBBaBBBBBBBBBBoonoaBnBBBDSBBB9BenoaBBBBBaeBBBBDB * / 

status scIMPL_EXPORT SCSCR^Writef scScrapPtr scrap, 

APPCtxPtr _ ctxPtr, 
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IOFuncPtr writeFunc ) 

status stat a scSuccess; 
EnterMonitor( scString( "SCSCR.Write" ) ); 

try { 

if ( scrap->IsClass( "scColumn" ) ) { 
scColumn* col » (scColumn*) scrap; 
col->ZeroEnumeration ( ) ; 
col->StartWrite ( ctxPtr, writeFunc ); 

} 

else if ( scrap->IsClass( "scStream" ) ) { 
scStream* stream - (scStream*) scrap; 
stream->STRZeroEnumeration ( ) ; 
stream->STRWriteToFile( ctxPtr, writeFunc ); 

} 

else 

raise( scERRidentif ication ); 
scTBObj :: Writ eNu 11 Object ( ctxPtr, writeFunc ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSCR_Write" ) ); 
return stat; 

} 

/* BBODcidticBaaanaaaaQnDaeonacnsonooaDCOBOtiiDanaoacaoBnseaaBoaeDaannDnnnB */ 

status scIMPL„EXPORT SCSCR_ReadCol ( scScrapPtr& scrap, 

C3 scSet* enumTable, 

^3 APPCtxPtr ctxPtr, 

as IOFuncPtr readFunc ) 

fy status stat » scSuccess; 

■q EnterMonitor( scString( "SCSCR.ReadCol" ) ); 

H tiy{ 

"4 scColumn* col; 

jp col » (scColumn* ) scTBObj : :StartRead ( enumTable, ctxPtr, readFunc ); 

l~ scAssert( scTBOb j : : St art Read ( enumTable, ctxPtr, readFunc ) « 0 ); 

K __ scrap - col; 

U y 

IGNORE_RERAISE; 



*. i 



ExitMonitor( scString( "SCSCR_ReadCol " ) ); 
H return stat; 

CO 
r i 

3^* ■BasDssasnaBasaaBanaaDoosDDDaaaDDnaoaiaaaaanesaaDaaatiBnsaaeiiBaaBaBBana */ 

status scIMPL_EXPORT SCSCH_ReadStream( scScrapPtr& scrapH, 

scSet* enumTable , 

APPCtxPtr ctxPtr, 
IOFuncPtr readFunc ) 

{ 

status stat ■ scSuccess; 

EnterMonitor( scString( "SCSCRJReadStream" ) ); 
scrapH = 0; 
try { 

scStream* stream » scStream: :STRFromFile ( enumTable, ctxPtr, readFunc ), 
scAssert( scTBObj : : Start Read ( enumTable, ctxPtr, readFunc ) — 0 ) ; 
scrapH - stream; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSCRJReadStream" ) ); 
return stat; 

} 

/* BBaBaaBaaBnBBaBDRaaaaDBDODaBBaBBBaeBaoaBaonDaaaBBSoaBBBDDBBDnnoaoosB * / 



7 
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status scIMPL_EXPORT SCSCRj^^st( scScrapPtr scrap. 



{ 



scTypeSpecListSt tsList ) 



status stat - scSuccess; 
EnterMonitor( scString( "SCSCRJTSList" ) ); 

try { 

if ( scrap->IsClass( "scColumn" ) ) 

((scColumn «) scrap ) ->GetTSList ( tsList ); 
else if ( scrap- >IsC lass ( "scContUnit" ) ) 

( (scStream*) scrap ) ->GetTSList ( tsList ); 

else 

stat a scERRidentif ication; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSCRJTSList " ) ); 
return stat; 

} 

/ * aBBBBaaBBssBBBaBBaaaBaaaaaBBaaaasBsasoEssatttsaBKmBsaaaaBBBBaEaBaBBSoeB * / 

status scIMPL_EXPORT SCSCR_Free( scScrapPtr scrap ) 
{ 

status stat * scSuccess; 
long byt esFreed ; 

EnterMonitor( scString( "SCSCR_Free" ) ); 
C3 try { 

ij if ( iscrap ) 

^; else if ( scrap->IsClass ( "scColumn" ) ) 

s y ( ( scCo 1 uran* ) scrap ) - > FreeScrap ( ) ; 

Q else if ( scrap->IsClass( "scContUnit" ) ) 

|.i ( (scContUnit*) scrap ) -> FreeScrap ( bytesFreed ); 

else 

"4 raise( scERRidentif ication ); 

13 > 

IGNORE_RERAISE; 

C3 ExitMonitor( scString( "SCSCRJFree" ) ); 
return stat; 

hi 

aaoaBaaBaaBasaBBBBaBsaBBBBBBaBBaesBStSBBaaBsatSBBaBBaBaaamaaossiastsBastscs * / 

?§atus scIMPL_EXPORT SCCOL_Delete ( scColumn* col r 

scRedispList* redispList ) 



{ 



} 



status stat » scSuccess; 

EnterMonitor( scString( "SCCOL_Delete" ) ); 
try { 

col->Delete( redispList ); 

} 

IG*50RE_RERAISE; 

ExitMonitor( scString( M SCCOL_Delete" ) ); 
return stat; 



status scIMPL_EXPORT SCSTR_Read( scStream*& stream, 

scSe t* enumTab 1 e , 

APPCtxPtr ctxPtr, 
IOFuncPtr readFunc ) 

{ 

status stat « scSuccess; 

EnterMonitor( scStringf "SCSTR_Read" ) ); 

8 



File: Work\CrtPrt\Stonehnd\Scapi .cpp Pg: 9 



try { 

stream = scStream: :STRFromFile( enumTable , ctxPtr, readFunc ); 
scAssert( scTBObj : :StartRead ( enumTable, ctxPtr, readFunc ) « 0 ) ; 

} 

IGNORE_RE RAISE; 

ExitMonitor( scString( "SCSTR^Read" ) ); 
return stat; 

} 

status scIMPL.EXPORT SCSTR_Write( scStream* stream, 

APPCtxPtr ctxPtr, 
IOFuncPtr writeFunc ) 

{ 

status stat * scSuccess; 

EnterMonitor( scString( "SCSTRJtfrite" ) ); 
try { 

stream->STRWriteToFile( ctxPtr, writeFunc ); 
scTBObj : :WriteNullObject( ctxPtr, writeFunc ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( M SCSTR_Write n ) ); 
return stat; 

u 

BsasnDenoaonoDaBSBBnsaiiaBas^aasnnosaBeiaccisBtisnoonnasinDe&aaDSDOBeseDa */ 

^tktus scIMPL_EXPORT SCSTR_Cut ( scStream* streamID, 

scRedispList* redispList ) 

43 

jij status stat - scSuccess; 

;'~ scColumn* col; 
N scTextline* txl; 

id 

EnterMonitor( scString( "SCSTR_Cut" ) ); 
E*J try { 

~'4 txl » streamID->GetFirstline() ; 

l\ if ( txl ) 

col - txl->GetColumn( ); 

[3 else 

C3 col " scColumn: :FindFlowset( streamID ); 



%sS if ( col ) 

col->FlowsetCutStream ( streamID, redispList ); 

else 

raise ( scERRstructure ); 

} 

I GNO RE_RE RA I S E ; 
return stat; 

} 

/» seoao8Baaa3BBaaaaasssaa9DnaseaBaaaBaaaseaaaaaaBBBaa3Bsee:as3ai 

status scIMPLJXPORT SCSTR_Copy( const scStream* stream, 

scStream*& newStream ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSTR_Copy" ) ); 

try { 

stream- >STRCopy( newStream ); 

} 

IGNORE_RERAISE ; 

ExitMonitor( scString( "SCSTR^Copy" ) ); 
return stat; 

9 
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} 

/* BBBSBSBBBBBBBBSBBBBBBBSSBSBBaSBBBBBBBBBBSBBBBSBBBBBaeaBSBSBaBBBBSaaB 4 

status scIMPL_EXPORT SCFS_PasteStream ( scColumn* col, 

scSt ream* streaml D , 

scRedispList* redispList ) 

{ 

status stat «= scSuccess; 

EnterMonitor( scString( "SCFS_PasteStream" ) ); 
try { 

col->FlowsetPasteStream( streamID, redispList ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCFS^PasteStream" ) ); 
return stat; 

} 

/* BSSSBBBBBBBBSBBBBBBBBBBSBBBBBBBBBBBBBSBBBBBBBBaBBBBBBBBSBBBSSSBBBtaBBBB 4 

status scIMPL_EXPORT SCSTR_Clear ( scStream* stream, 

scRedispList* redispList ) 



{ 



C3 



status stat « scSuccess; 

scColumn* col; 
scTextline* txl; 

EnterMonitor( scString( "SCSTR_Clear" ) ): 



try { 

if ( stream ) { 

txl = stream->GetFirstline ( ) ; 
if ( txl ) { 

col ■ txl->GetColumn ( ); 
if ( col ) 

col ->Flowset ClearS t ream ( redispList ); 

else 

raise ( scERRstructure ); 
} 

^ else if ( stream->FindColumn ( col ) ) 

col~>FlowsetClearStream( redispList ); 

"4 else 

li\ /* if no layout structure associated with stream */ 

12 stream- >STRF re e ( ) ; 



E y 



*~ else 



£j raise( scNoAction ); 

} 

IGNORE^ RERAISE ; 



} 



ExitMonitor( scString( "SCSTR^Clear" ) ); 
return stat; 



/* stJsaadaflnoBasnBDsoaonaonseaoocBnneiiooconoaDeooBttoeoesaBBaaBBnnsaQonD »/ 

// Extracts a scContUnit from a scStreamLocation for use with SCSTR„Split 

status scIMPLJXPORT SCSEL_GetContUnit ( scContUnit*& mark, 

scContUnit*& point, 

const scSelection* si ) 

{ 

status stat » scSuccess; 

EnterMonitor( scString( "SCSTR^GetContUnit " ) ); 
try { 

sl->GetContUnits( mark, point ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSTRJ3etContUnit" > ); 
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return stat; 

} 

/* BBaaaDaoaaoaoBBeBQBBsseaoaonaoeiaBDaiiBCDeaBacnaiiniiaoaaaaosBi 

status scIMPL„EXPORT SCSTR_Split( scStream* streaml, 

scContUnit* cu, 
scStream*& stream 2 ) 



{ 



} 



status stat e scSuccess; 

EnterMonitor( scString( "SCSTR_Split" ) ); 

try { 

stream2 » stream 1 ->Spli t ( cu ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCSTRJSplit" ) ); 
return stat; 



/* compare streams for equality, this tests content and specs 
* scSuccess — equality 
»/ 

status scIMPL_EXPORT SCSTR_Compare ( const scStream* strl, 

const scStream* str2 ) 

{ 

■set status stat - scSuccess; 

is? 

\2 EnterMonitor( scString( "SCSTRjZompare" ) ); 

fii try { 

stat « str l-> Compare ( str2 ) ? scSuccess : scNoAction; 

U } 

Ly IGNORE_RERAISE; 

^ ExitMonitor( scString( "SCSTR_Compare" ) ); 

a return stat; 

/^jk BBeBaDaaoBoaesaaBasosascaBaBaeassBBseBBBaBBaaBaaBaaontsoasBttaseaBS 

i J 

iitatus scIMPL_EXPORT SCCOL„SetSize ( scColumn* col, 

MicroPoint width, 

MicroPoint depth, 

scRedispList* redispList ) 



T 



status stat « scSuccess; 

EnterMonitor( scString( "SCC0L_SetSi2e" ) ); 



try { 

if ( width < 0 [| depth < 0 ) 
raise ( scERRinput ); 

col->Resize( width, depth, redispList ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOL_SetSize u ) ); 
return stat; 



/* BSBaBBBBBBBaaaaBBaBBaaBBBtJaBBDBDBSBaBBBaBBBBaBBBBBBt 

// is there any text associated with this column 

status scIMPL_EXPORT SCCOL_HasText ( scColumn* col ) 
{ 

status stat * scSuccess; 

EnterMonitor( scString( "SCCOL_HasText " ) )• 
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try { 

stat » col->HasText ( ) ? scSuccess : scNoAction; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOLJiasText" ) ); 
return stat; 

} 

/ * aBaaaasaBBBBmssBBsaaBaBBBaaaaaaaBSBBSBaoBaaBaaaasaaaBsaBBaBBaaBBBBaB * / 

// tests to see if there is more text than is in this column 
// this would set the flag to true if: 
// there is text in subsequent linked columns 

// there is unformatted text that will not fit in this column 

status scIMPL_EXPORT SCCOL_MoreText ( scColumn* col, 

B00I& flag ) 

{ 

status stat *» scSuccess; 

EnterMonitor( scString( "SCCOLJ-IoreText " ) ); 
try { 

flag « col->MoreText ( ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL_MoreText" ) ); 
return stat; 

c ? 

assaBBBBBBBBBBBBBaaBasaoaaaaaasaaaaBaaaaaBBaBassBBSBBBBBSBaaaaaaaaaa */ 

fsiatus scIMPL_EXPORT SCCOL_LinePositions ( scColumn* col, 

t3 scLinelnfoList* linelnfo, 

iil long& nLines, 

u ~ B00I& moreText ) 

■l j status stat « scSuccess; 

I EnterMonitor( scString( "SCCOLJLinePositions" ) ); 
C3 tr y { 

col->LineInfo ( linelnfo, nLines, moreText ); 

Id } 

IGNORE_RERAISE; 

■ ?* 

£3 ExitMonitor( scString( "SCCOL_LinePositions" ) ); 
?-» return stat; 

v 

/♦ saamoosontaaaeaaaBsasnoBadiiBBaaaDaaaDnannanaopncnDDnaonaaaassadBBeaeE »/ 

status scIMPL_EXPORT SCCOL_SetVertFlex ( scColumn* col, 

scRedispList» redispList ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( u SCCOL_SetVertFlex" ) ); 
try { 

col->SetVertFlex ( true, redispList ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL.SetVertFlex" ) ); 
return stat; 

} 

/* aaaaaaasBaaaaaaBBBBBBBBBBBaaamoeaaaeaeaaaaaaaaaaaaaaaaaaBBBBBBBBesaBo * / 

status scIMPL_EXPORT SCCOL_ClearVertFlex ( scColumn* col, 

scRedispList* redispList ) 
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"^fc.ClearVertFlex" ) ); 



status stat • scSuccess; 

EnterMonitor( scString( "SIBEjZlearVertFlex" ) ); 

try { 

col->SetVertFlex ( false, redispList ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOL^ClearVertFlex" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCCOL_SetHorzFlex ( scColumn* col, 

scRedispList* redispList ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL_SetHorzFlex" ) ); 
try { 

col->SetHorzFlex ( true, redispList ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( ,, SCCOL__SetHorzFlex" ) ); 
return stat; 



} 



sjatus scIMPL_EXPORT SCCOL_ClearHorzFlex ( scColumn* col, 

IZ. scRedispList* redispList ) 

ll 

iy status stat » scSuccess; 

t 3 EnterMonitor( scString( "SCCOL_ClearHorzFlex " ) ); 

iJ try ^ 

fe -*3 col->SetHorzFlex ( false, redispList ); 

C3 > 

IGNORE_RERAISE; 

£ 

C3 ExitMonitor( scString( "SCCOL^ClearHorzFlex" ) ); 
return stat; 

y 

oaasBsnaDBanssadaatssQiiaaiiioaatiaaacsaaBBncionsennaaaBaEiEtieiESBSBBBBaEsmasaa » / 

a 

hiatus scIMPL_EXPORT SCCOL_GetVertFlex ( scColumn* col, 

B00I& tf ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL.GetVertFlex" ) ); 
try { 

tf « col->GetVertFlex( ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL__GetVertFlex" ) ); 
return stat; 

} 

/» BBaBBaBsnoaoonnaaacnnaBOBeonBaanosijDoeoooacDcaDasnooaaaeoeoaeaaannos » / 

status scIMPL_EXPORT SCCOL_GetHorzFlex ( scColumn* col, 

B00I& tf ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL_GetHorzFlex" ) ); 



try { 

tf = col->GetHorzFlex( ); 
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} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL^GetHorzFlex" ) ); 
return stat; 

} 

/» aaonoaaeoaaaDanaBaasaoeeiaDseaaosssDBDOBaQooanDonsnBBaBacDQssaaoaBBaa » / 

status scIMPL_EXPORT SCCOL_GetF lowDi recti on ( scColumn* col, 

scFlowDirE* flodir ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( M SCCOL_GetFlowDirection" ) ); 
try { 

flodir » col->GetFlowdir() ; 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOL_GetFlowDirection" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCCOL_SetF lowDi recti on ( scColumn* col, 

const scFlowDir& flodir ) 

{ 

„ status stat « scSuccess; 

*f EnterMonitor( scString( "SCCOLJSetFlowDirection" ) ); 
rn try { 

; : , col->FlowsetSetFlowdir( flodir ); 

Q IGNORE_RERAISE; 

IJ 

ExitMonitor( scString( "SCCOL„SetFlowDirection" ) ); 
return stat; 

Is* 
3 

/fit ODoaaaDnBotsBaBseEiEDcBcnDasaciaaoooaeDeetiasaBoiaeaBeaaaaBBaoDoaBestisaBe] * / 

C3 

#ijf defined ( scColumnShape ) 

^t^tus scIMPL_EXPORT SCCOL_PastePoly ( scColumn* col, 
^2 const scVertex* vert, 

8 II scRedispList* redispList ) 

|3 

£3 status stat » scSuccess; 

EnterMonitorf scString( "SCCOL_PastePoly" ) ); 

try { 

// col->PastePoly ( vert, redispList ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOL_PastePoly" ) ); 
return stat; 

} 



status scIMPL_EXPORT SCCOL_ClearPoly ( scColumn* col, 

scRedispList* redispList ) 

{ 

status stat «■ scSuccess; 

EnterMonitor( scString( "SCCOL.ClearPoly" ) ); 
try { 

col->ClearShape( redispList ); 

} 

IGNORE_RE RAISE; 

14 
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Pg: 15 



ExitMonitor( scString( "S^MjZlearPoly" ) ); 

return stat; 
} 

/* aoDBBDBeaDaaaDanaiaaaaaDBBoaniBiasDODnsnaiioDaseaonDoaneDaDneacRBBBBiQOBD H 

status scIMPL_EXPORT SCCOL_CopyPoly ( scColumn* col, 

scVertex*& vert ) 

{ 

status stat - scSuccess; 
/•CLIPSTUFF*/ 

EnterMonitor( scString( "SCCOL_CopyPoly" ) ); 
try { 

// col->CopyPoly ( vert ); 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCCOL_CopyPoly" ) ); 
return stat; 

} 

/* BDaQaBaBaBaoaBBcaBOBeaBEiaaDaBSBa (j J ONS = = anaaBanBanoooDoaaaaDBDDCD*/ 

status scIMPL_EXPORT SCCOL_PasteRgn ( scColumn* col, 

const HRgnHandle rgnH, 
scRedispList* redispList ) 

{ 

status stat « scSuccess; 
„ EnterMonitor( scString( "SCCOL_PasteRgn" ) ); 

t : 

■B ~ 

Q try { 

?n col->PasteRgn ( rgnH, redispList ); 

pji > 

*f IGNORE_RERAISE; 

\2 

|J ExitMonitor( scString( "SCCOL^PasteRgn" ) ); 
l~ return stat; 

7-5 



p 

/J* aBSBasBBBsasDBDnDaBeaaBBSBasaoBasaesaeoBaaBoaBaBBBBBBaBBBBBBnflBBaD! 

s^tus scIMPL_EXPORT SCCOL_ClearRgn ( scColumn* col, 
~~*4 scRedispList *redispList ) 

id 

k£ status stat ■ scSuccess; 

EnterMonitorf scString( "SCCOL_ClearRgn" ) ); 

£3 

col->ClearShape( redispList ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL_ClearRgn H ) ); 
return stat; 

} 

/» BaBBBBaaBBBDSBasaaacaaaBaaBBaaBaaBBBaBaaBaaBaBaeBB&BaBBBSBBSBBBBBB! 

status scIMPL_EXPORT SCCOL_CopyRgn ( scColumn* col, 

HRgnHandleSc rgnH ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL^CopyRgn" ) ); 
try { 

col->CopyRgn( rgnH ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL_CopyRgn" ) ); 
return stat; 

> 15 
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/* 



status scIMPL_EXPORT SCHRGN_New( HRgnHandlefc hrgH, 

MicroPoint sliverSize ) 



{ 



} 



status stat • scSuccess; 

EnterMonitor( scString( "SCHRGKLNew" ) ); 

try { 

hrgH » NewHRgn( sliverSize ); 

} 

I GMORE_RERAI SE ; 

ExitMonitor( scString( "SCHRGNJJJew" ) ); 
return stat; 



,/* BBBBBBBOSSBBB8BaBBBBBBSBBBBBa3B3aBBBaa8BBBBBBBBaBBBBBai 

status scIMPL_EXPORT SCHRGKLDispose ( HRgnHandle hrgH ) 
{ 

status stat «■ scSuccess; 

EnterMonitor( scString( "SCHRGfcTJDispose" ) ); 
try { 

DisposeHRgn( hrgH ); 

} 

IGNORE„RERAISE; 

Q ExitMonitor( scString( "SCHRGN.Dispose" ) ); 
r 5 return stat; 



X*\ BBaBaBBaBsaaeaBBBBaaBaBBaaaaaaanBaaaBeaaBaaaasBaaBaaBBBSBasasDaaaBaa */ 

V4 

status scIMPL.EXPORT SCHRGN_Empty ( HRgnHandle hrgH ) 

13 

B status stat » scSuccess; 

^ EnterMonitor( scString( "SCHRGN^Empty" ) ); 
~U try { 

LJ stat - EmptyHRgn( hrgH ) ? scSuccess : scNoAction; 

IGNORE..RERAISE; 

C3 

P ExitMonitor( scString( "SCHRGKLEmpty" ) ); 
return stat; 

} 



/• oanaaonac 



status scIMPL„EXPORT SCHRGN_Equal ( const HRgnHandle a, 

const HRgnHandle b ) 



{ 



} 



status stat ■ scSuccess; 

EnterMonitor( scString( "SCHRGKLEqual " ) ); 
try { 

stat - EqualHRgn( a, b ) ? scSuccess : scNoAction; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCHRGN_Equal " ) ); 
return stat; 
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status scIMPL_EXPORT SCHRG]^Hn( const HRgnHandle hrgH, 

const scMuPointfi* pt ) 

{ 

status stat ° scSuccess; 

EnterMonitor( scString( "SCHRGN_PtIn" ) ); 
try { 

stat - PtInHRgn( hrgH, pt ) ? scSuccess : scNoAction; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCHRGN_PtIn" ) ); 
return stat; 

} 



status scIMPL_EXPORT SCHRGN_Rect( HRgnHandle hrgH, 

const scXRect& xrect ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCHRGN^Rect" ) ); 
try { 

RectHRgn( hrgH, xrect ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( n SCHRGN_Rect" ) ); 
£3 return stat; 

cn 

i3 

s^tus seIMPL_EXPORT SCHRGN_Poly( HRgnHandle hrgH, 

const scVertex* verts ) 

l j status stat » scSuccess; 

l" EnterMonitor( scString( "SCHRGN.Poly" ) ); 

C3 try { 

PolyHRgn( hrgH, verts ); 

12 I GNO RE_RERA I S E ; 

S 

C3 ExitMonitor( scString( "SCHRGN_Poly" ) ); 
fi return stat; 

/# BeasaasBBBBBBBaBBBBBOBBBBBaaBaoBBaaaBBeeBsoaEaBBBBBnBBnneaaaaassBasa 

status scIMPL_EXPORT SCHRGN_Copy( HRgnHandle dstRgn, 

const HRgnHandle srcRgn ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCHRGKLCopy" ) ); 
try { 

CopyHRgn( dstRgn, srcRgn ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCHRGN.Copy" ) ); 
return stat; 

} 



status scIMPL_EXPORT SCHRGN_Sect( const HRgnHandle a. 
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const HRgnHandle b„ 
HRgnHandle dstRgnH ) 

status stat • scSuccess; 

EnterMonitor( scString( "SCHRGfcLSect " ) ); 
try { 

SectHRgn( a, b„ dstRgnH ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( M SCHRGN_Sect M ) ); 
return stat; 



status scIMPL_EXPORT SCHRGN.Union ( const HRgnHandle a, 

const HRgnHandle b, 
HRgnHandle dstRgnH ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( ' 1 SCHRGNJJn ion" ) ); 
try { 

UnionHRgn( a, b„ dstRgnH ); 

} 

IGNORE_RERAISE; 

0 ExitMonitor( scString( "SCHRGfcLUnion" ) ); 
*3 return stat; 

ry 

/£*J oQnmBasDBmssaeonDDsaaonanDnoDeasaoBOsanoaosaasatiaezDaiEaaaBDnanBenonm */ 

1 J 

status scIMPL_EXPORT SCHRGN_Diff ( const HRgnHandle a, 

const HRgnHandle b„ 
£3 HRgnHandle dstRgnH ) 

u 

status stat « scSuccess; 
^ EnterMonitor( scString( "SCHRGNLDif f " ) ); 

'"4 

Id try { 

H DiffHRgn( a, b. dstRgnH ); 

IZ } 

U IGNORE_RERAISE; 

C3 

ExitMonitor( scString( "SCHRGN_Dif f " ) ); 
return stat; 

} 



saBeeBoesossassasBSBB */ 



status scIMPL_EXPORT SCHRGN_Xor( const HRgnHandle a, 

const HRgnHandle b, 
HRgnHandle dstRgnH ) 



{ 



status stat ■ scSuccess; 

EnterMonitor( scString( "SCHRGN_Xor" ) ); 

try { 

XorHRgn( a, b r dstRgnH ); 

} 

IGNORE_RERAISE ; 

ExitMonitor( scString( "SCHRGN_Xor lf ) ); 
return stat; 
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/* aoeeoaoaoosDosaacDaaiieDac 

status scIMPL_EXPORT SCHRGN_Translate ( HRgnHandle hrgH, 

MicroPoint x„ 

MicroPoint y ) 



{ 



status stat » scSuccess; 

EnterMonitor( scStringf "SCHRGNJTranslate" ) ); 
try { 

TranslateHRgn ( hrgH, x, y ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCHRGNJTranslate" ) ); 
return stat; 



/* aaneaDsaannoaaaaaaonoaoaaaeoonaoannanaanfflnsannaoBaaiiBoaaaadaaaaDaaBO * / 

status scIMPL_EXPORT SCHRGN„Inset ( HRgnHandle hrgH, 

MicroPoint x, 
MicroPoint y ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCHROsL Inset" ) ); 
try { 

InsetHRgn( hrgH, x, y, true ); 

%J IGNORE.RERAISE; 

iii 

* M ExitMonitor( scString( "SCHRGN_Inset " ) ); 

' ~ return stat ; 

W 

/ V s BBossBDsaBsaBSBHsaasBBaBBDaaasB&BBBBsaeaesBSBaBasaBBBBdaBaBBaBdBaaaB * / 

C3 

status scIMPL_EXPORT SCHRGN_SetEmpty ( HRgnHandle hrgH ) 

in 

status stat « scSuccess; 
% "4 EnterMonitor( scString( "SCHRGN_Set Empty" ) ); 

■ | J 
il trv i 

f Z SetEmptyHRgn ( hrgH ); 

£3 } 

C3 IGNORE_RERAISE; 

ExitMonitor( scString( "SCHRGN_Set Empty" ) ); 
return stat; 

} 



status scIMPL_EXPORT SCHRGN_SliverSize ( HRgnHandle hrgH, 

MicroPointSc sliverSize ) 

{ 

status stat ■ scSuccess; 

EnterMonitor( scString( "SCHRGNJSliverSize" ) ); 
try { 

sliverSize * RGNSliverSize( hrgH ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCHRGN_SliverSize" ) ); 
return stat; 
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/» OflSS 



status scIMPL_EXPORT SCHRGN_RectIn ( const HRgnHandle hrgH, 

const scXRectSl xrect ) 



{ 



} 



status stat ■ scSuccess; 

EnterMonitor( scString( " SCHRGN_Rec t I n " ) ); 
try { 

stat - RectlnHRgnf hrgH, xrect ) ? scSuccess : scNoAction; 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCHRQMLRectln" ) ); 
return stat; 



/• BQBnatsoDsoaoaaoeeaiBDBBBBaaaonaBaooeoossaatjaaBeQDDaesBOSDaanaedanBaaD » / 

#endif 

/» aBBBDBBBBBBBBnBnaoaeaaBasBBBBBBBBBaoBosnBBnBeaaaaBBBBBBBnosaaaaaaaBa »/ 

status scIMPL_EXPORT SCCOL_Update ( scColumn* col, 

const scXRectSt xrect, 
APPDrwCtx mat ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( ,, SCCOL_Update" ) ); 

in try { 

col->Draw ( xrect, mat ); 

*~ } 

W IGNORE.RERAISE; 

u 

ExitMonitor( scString( "SCCOL_Update" ) ); 
? 2 return stat; 

3 

/l*^ eoseBaaaaeBaEBEBBsaBBoanaoBSBBBsBBaBsBBBBBaBSBBcasaaa&aBBBBBBBBBOBoe » / 

status scIMPL_EXPORT SCCOL_UpdateLine ( scColumn* col, 
LtJ scImmediateRedispSc lineDamage, 

APPDrwCtx mat ) 

status stat « scSuccess; 
C3 EnterMonitor( scString( M SCCOL_UpdateLine n ) ); 

try { 

col->UpdateLine( lineDamage, mat ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOLJJpdateLine" ) ); 
return stat; 

} 

/» BBBBBBBBOBaeaaBaaBBBBBBaBBBBBaaeasBaaBEBBBBaBBBBBBBOsaaasBBBBBBBBBBn » / 

status scIMPL_EXPORT SCCOLJTSList ( scColumn* col, 

scTypeSpecList& tsList ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( ''SCCOLJTSList " ) ); 
try { 

col->GetTSList( tsList ); 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCCOLJTSList" ) ) ; 2Q 
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return stat; 

} 



status scIMPL_EXPORT SCSTRJTSList ( scStream* stream, 

scTypeSpecListSt tsList ) 

{ 

status stat » scSuccess; 

EnterMonitor( scString( "SCSTRJTSList" ) ); 
try { 

stream->STRGetTSList ( tsList ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSTR_TSList " ) ); 
return stat; 

} 

/ * BBBBSB»BB3»B8mBBBBSaBBOBSaBBt3aBtaBBBBBBBBBBBBBaBBBBBBBBB88BBBaBCtBSBBt3Se * / 

status scIMPL_EXPORT SCSTR„ParaTSList ( scStream* stream, 

scTypeSpecListSc tsList ) 

{ 

status stat - scSuccess; 

EnterMonitor( scStringf "SCSTR_ParaTSList " ) ); 
try { 

? ~ stream- >GetParaTSList ( tsList ); 
\J IGNORE_RERAISE; 

Cn 

?:i ExitMonitor( scString( "SCSTR_ParaTSList" ) ); 

s !f return stat; 

}%3 

U 

/jt J tSBBaBBBJXBSBaBBBBBSBBBBBBBBBSBBBSBBBBBBBBSBBBBBBBaBBBBBSBBBSBBBBBBBBBB */ 

'■'4 

status scIMPL_EXPORT SCSTR_CHTSList ( scStream* stream, 
s scSpecLocListSc csList ) 

Hi 

~~i status stat - scSuccess; 

"" 4 EnterMonitor( scString( "SCSTR_CHTSList " ) ); 

I : i 
a- u: 

U try { 

1 = stream->G©tCharSpecList ( csList ); 

C3 I GNO RE_RERA I S E ; 

ExitMonitor( scString( "SCSTR^CHTSList " ) ); 
return stat; 

} 

/♦ BBsaoaaaaaBaBBBBBBBBBBBBBBaBBBBaaBBBBBSBBBaBBSBBSBBaBSBaaassaBaBaBBB * / 

status scIMPL_EXPORT SCCOL_SetDepthNVJ( scColumn* col, 

MicroPoint depth, 
scRedispList *redispList ) 



{ 



status stat = scSuccess; 

EnterMonitor( scString( "SCCOLJSetDepthNVJ" ) ); 
try { 

col->SetDepthNVJ ( depth, redispList ); 

} 

IGNORE_RERAISE ; 

EnitMonitor( scString( "SCCOL„SetDepthUVJ" ) ); 
return stat; 



/ * BBBBBBBB 



aaaBBBBBBBB */ 
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status scIMPL_EXPORT SCCOLJ^PvJustify ( scColumn* col, 

eVertJust attributes ) 

{ 

status stat » scSuccess; 

EnterMonitor( scString( "SCCOL_F low Justify" ) ); 
try { 

col->SetVJ( attributes ); 

} 

IGNORE_RE RAISE; 

EKitMonitor( scStringf "SCCOL_F low Justify" ) ); 
return stat; 

} 

/# eDBaoBnaaaaacnDrtaoDeasaaaoBnnatjoaoaaBsosDDtsiiaDssnBBaopnsaDSOBiiBasDaB » / 

status scIMPL_EXPORT SCSTR_ChCount ( scStream* stream, 

long& count ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSTR_ChCount " ) ); 
try { 

stream*>ChCount ( count ); 

} 

IGNORE_RERAISE; 

§ * s ExitMonitorf scString( "SCSTR_ChCount " ) ); 
-J return stat; 

£n 

/Jfc : EaasnaaaDannBaaaoeaeaDaeBBziaaasesttasBsaattBaaBBciaaaBoaaaaeoaaBetieQBDB »/ 

H Li 

status scIMPL_EXPORT SCSELJTSList ( scSelection* selection, 
|J scTypeSpecListSt tsList ) 

St status stat » scSuccess; 

13 EnterMonitor( scString( "SCSELJTSList" ) ); 
H try { 

selection->GetTSList ( tsList ); 

-4 y 

id IGNORE.RERAISE; 

u 

ExitMonitor( scString( "SCSELJTSList" ) ); 
I J return stat; 

H3 

status scIMPLJEXPORT SCSEL_CHTSList ( scSelection* selection, 

scSpecLocList& csList ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSEL_CHTSList" ) ); 
try { 

selection->GetCharSpecList ( csList ); 

} 

IGNORE_RERAISE; 

ExitMonitorf scString( "SCSEL_CHTSList" ) ); 
return stat; 

} 

/* eeaaBaaBaaBBaBaBBaBnaBDBBneBBBBaBBaBBnaBBBBaB8BBttBBBBBBBaoanaaeeaeao * / 

status scIMPL„EXPORT SCSEL.PARATSList ( scSelection* sel, 

scSpecLocList& cslist ) 

{ 

status stat « scSuccess; 
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EnterMonitor( scString( H ^^_PARATSList" ) ); 



try { 

sel->GetParaSpecList ( cslist ); 

> 

IGNORE_RERAISE; 

ExitMonitorf scStringf "SCSEL_PARATSList" ) ); 
return stat; 

} 

/« oooinaiaeiaBoanoaooBBannOBOBonnoonqBBiacDooontiBsioBnHaaonanBooaeiaisnaon) 

status scIMPL_EXPORT SCSEL_PARATSList ( scSelection* sel, 

scTypeSpecList& tsList ) 



{ 



status stat - scSuccess; 

EnterMonitor( scString( " SCSEL_PARATSL i st " ) ); 
try { 

sel->GetParaSpecList( tsList ); 

} 

I GNO RE_RE RA I S E ; 

ExitMonitorf scString( " SCSEL_PARATSL i s t " ) ); 
return stat; 



} 



3BBBnnaeBeaBBS3ieBoaaBBBesaaoneassoBaet 



status scIMPL_EXPORT SCSTR_PARATSList ( scStream* stream, 
\J scSpecLocList& cslist ) 

kn 

status stat - scSuccess; 
ly EnterMonitor( scStringf "SCSTR.PARATSList" ) ); 

\2 

U try { 

streara->GetParaSpecList ( cslist ); 
Q IGNORE_RERAISE; 

^ ExitMonitorf scStringf 11 SCSTR_PARATSL i st " ) ); 
\~ return stat; 

/* osnaaoDaaDaBBBnBaoaseBBBBBBBesaoaaBBBDBciBaneoaBBBBDBBnaaaaaBBBnasieaa • / 

sfcltus scIMPL_EXPORT SCSTR_CHTSListSet ( scStream* str, 

const scSpecLocList& csList, 
scRedispList* redispList ) 

status stat « scSuccess; 

EnterMonitor( scString( "SCSTR^CHTSListSet" ) ); 
try { 

scAssert( str « csList .GetStreamf ) ); 
str->SetCharSpecList ( csList, redispList ); 

} 

IGNORE_RERAISE; 

ExitMonitorf scStringf "SCSTR^CHTSListSet " ) ); 
return stat; 

} 

/» nBBBBOBBanBBaaBBqoBBnaBaBcBBaBnoaBBaaBBaaaBaBBBBnonaBBBBBOBnBBBaBBBB » / 

status scIMPL_EXPORT SCSTR_PARATSListSet ( scStream* str, 

const scSpecLocList& cslist, 
scRedispList* rlnfo ) 

status stat » scSuccess; 

EnterMonitorf scStringf "SCSTR^PARATSListSet " ) ); 

23 
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try { 

scAssert( str — cslisWRtStr©am( ) ); 
str->SetParaSpecList ( cslist, rlnfo ); 
} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSTR_PARATSListSet " ) ); 
return stat; 

} 

/* aDDeBODBBoaovcnDaDanDtiaDooaiiDoaoonoDosooaiiDaaQaoBBiinaDoaBDBOBQssDone */ 

status scIMPL_EXPORT SCExternalSize ( scColumn* col, 

long& size ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCExternalSize" ) ); 
try { 

col->ExternalSize( size ); 

} 

IGNORE_RERAISE; 

ExitMonitorf scString( "SCExternalSize" ) ); 
return stat; 

} 

&tus scIMPL_EXPORT SCTB_ZeroEnumeration ( void ) 



W status stat - scSuccess; 

£f] EnterMonitor( scString( "SCTB_ZeroEnumeration" ) ); 

l Z try { 

%?s scColumn* col « scColumn : :GetBaseContextList () ; 
I J f° r ( ' col; col ■» col->GetContext () ) 
^! col->ZeroEnumeration ( ) ; 

« > 

■ferf IG*30RE_RERAISE; 

f-j ExitMonitor( scString( "SCTB_ZeroEnumeration" ) ); 
return stat; 

U 

sidtus scIMPLJEXPORT SCSET_InitRead ( scSet«& enumTable, 
12 long maxsize ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCSET_InitRead" ) ); 
try { 

enumTable - SCNEW scSet; 
enumTable->SetNumSlots( maxsize ); 
enumTable->SetRetainMem( true ); 

} 

IGNORE^ RERAISE; 



ExitMonitor( scString( M SCSET_InitRead" ) ); 
return stat; 



} 



status scIMPL_EXPORT SCSET_FiniRead ( scSet* enumTable, 

scRedispList* redispList ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSET_FiniRead" ) ); 
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try { 

delete enumTable, enumlBKe = 0; 

scColumn: : Update ( redispList ); 

} 

IGN0RE_RE RAISE; 

ExitMonitor( scString( "SCSET_FiniRead" ) ); 
return stat; 

} 

/» osDosoDaaanoesoaovaanaDnBoaDsonoanaoooDiBoaiiBaaDDnaeaBaMasaoooDDDmaDa »/ 

status scIMPL_EXPORT SCSET_Abort( scSet*& enumTable ) 
{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSET_Abortt" ) ); 
try { 

enumTable->DeleteAll () ; 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSET_Abortt" ) ); 
return stat; 

} 

/• caaeBBBanaesDadnaaanssBOBBaaaanmnaoneaonaBooanseaneiooaoaBBasBDsaosno # / 

status scIMPL__EXP0RT SCOBJ_PtrRestore ( scTBObj* obj , 
^ scSet* enumTable ) 

fn status stat = scSuccess; 

l Z EnterMonitor( scString( "SCOBJ_PtrRestore" ) ); 

%2 

|y try { 

*j long i„ 

? i limit = enumTable- >Ge tNuml t ems() ; 

1=1 

s for ( i - 0; i < limit; i++ ) { 

f 8 * scTBObj* ptr - (scTBObj* )enumTable->Get( i ); 

if ( Ptr ) 

T ' ptr->RestorePointers( enumTable ); 

U } 

la } 

L IGNORE__RERAISE ; 

U 

C3 ExitMonitor( scString( "SCOBJ_PtrRestore M ) ); 
return stat; 

} 

/» SBaaBBaBBBBBBBBSBBBBBaaBDBDaoBoaBosaaDCBBBaBSBBasaBBBBaBaBgsaBBaBBBB « / 



status scIMPL_EXPORT SCCOL_QueryInkExtents ( scColumn* col, 

scXRectSc xrect ) 



{ 



} 



status stat » scSuccess; 

EnterMonitor( scString( "SCCOL.QuerylnkExtents" ) ); 
try { 

col ->ComputeInkExtents ( ) ; 
xrect « col->GetInkExtents() ; 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOL^QuerylnkExtents" ) ); 
return stat; 



/* 8BBBBaa»B8ioBBBBBassBBBSBBBBnBBaBBBBSSBsasBnBBBBBaBB&sBBBBBSBBB8saBB» */ 
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status scIMPL_EXPORT SCCOLjl^yMargins ( scColumn* col, 

scXRsct& xrect ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL_QueryMargins" ) ); 
try { 

col->QueryMargins( xrect ); 

} 

IGNORE_RERAISE ; 

ExitMonitor( scString( "SCCOL.QueryMargins" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCCOL_Size( scColumn* col, 

scSize& size ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCCOL_Size" ) ); 
try { 

col->QuerySize( size ); 

} 

IGNORE.RERAISE; 

n 

ExitMonitor( scString( "SCCOL__Size" ) ); 
\J return stat; 

?y 

sifajitus scIMPL_EXPORT SCO BJ_E numerate ( scTBObj* obj , 
s.\ long& obj Enumerate ) 

status stat - scSuccess; 
s EnterMonitor( scString( "SCOBJ„Enumerate" ) ); 

Si try { 

^ if ( obj->IsClass( "scColumn" ) ) 

L : J ( (scColumn* ) obj )->Enumerate ( objEnumerate ); 

1^ else if ( obj->IsClass( "scContUnit" ) ) 

^ ( (scStream*)obj )->DeepEnumerate( objEnumerate ); 

jjf else 

£,3 raise ( scERRstructure ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( H SCOBJ_Enumerate N ) ); 
return stat; 

} 

status scIMPL_EXPOFT SCCOL_Link( scColumn* coll, 

scColumn* col 2, 

scRedispList* redispList ) 



{ 



status stat «> scSuccess; 

EnterMonitor( scString( "SCCOLJLink" ) ); 

try { 

coll->Link( col2, true, redispList ); 

} 

IGKORE.RERAISE; 

ExitMonitor( scString( "SCCOL_Link N ) ); 
return stat; 
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status scIMPL_EXPORT SCCOL_Unlink ( scColumn* col, 

scRedispList* redispList ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( n SCCOL_Unlink" ) ); 
try { 

col->Unlink( redispList ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scStringf "SCCOLJJnlink" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCFS_Split( scColumn* coll, 

scColumn* col 2 ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCFSJSplit " ) ); 

try { 

coll->BreakChain( col2 ); 

} 

p I GNORE_RERA I SE ; 

^3 ExitMonitor( scString( u SCFS_Split " ) ); 
?f\ return stat; 

a 

- j 

^- I 

£tus scIMPL_EXPORT SCCOL_GetStream ( scColumn* col, 

scStream*& stream ) 
U 

i=% status stat » scSuccess; 

**? EnterMonitor( scStringf H SCCOL_GetStream" ) ); 

I J try { 

stream » col->GetStream (); 

£3 IGNORE RERAISE; 

ExitMonitor( scString( " SC CO L_Get Stream 11 ) ); 
return stat; 

} 

/* BaBaaBtiDnBseBdCBeBsiiaDannonaanBDnossBaaoBDsSBBBeasaBoaecsDsaaDiinDooa */ 



status scIMPLJEXPORT SCFS_ReadTextFile ( scColumn* col, 

TypeSpec spec , 

APPCtxPtr ctxPtr, 

IOFuncPtr readFunc, 

scRedispList* redispList ) 



{ 



status stat - scSuccess; 

EnterMonitor( scStringf "SCFS_ReadTextFile" ) ); 
try { 

col->ReadTextFile( spec, ctxPtr, readFunc, redispList ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCFS_ReadTextFile" ) ); 
return stat; 
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status scIMPL_EXPORT SCWriteTextFile ( scStream» stream, 

APPCtxPtr ctxPtr, 
IOFuncPtr writeFunc ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCWriteTextFile" ) ); 
try { 

stream->STRWriteTextFile( ctxPtr, writeFunc, false ); 

} 

IGNOREJRERAISE; 

ExitMonitor( scString( "SCWriteTextFile" ) ); 
return stat; 

} 

/* aDDDoanaaasoaonoaaaaaeBBBDnBBeaBaaoDaBOdaBnDBonoooeeanaBODasBnonoeoe */ 

status scIMPL_EXPORT SCTextFileToScrap ( scScrapPtr& scrapH, 

APPCtxPtr ctxPtr, 
IOFuncPtr readFunc ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCTextFileToScrap" ) ); 
?=* try { 

*Z TypeSpec null Spec; 

kJ 

If] scStream* stream = scStream: :ReadTextFile ( nullSpec, ctxPtr, readFunc, 0 ) 

pi scrapH « stream; 

W IGNORE_RERAISE; 

u 

%a ExitMonitor( scString( "SCTextFileToScrap" ) ); 
return stat; 

/j4k^ SBaosasaaaBBasooBBDaBBBBSDeiiBanaBBDOsaoaaaBBaaaaaaBBBoaDgBaseosaBaBB » / 

sHtus 3cIMPL_EXP0RT SCAPPTXT.JU 1 oc ( stTextImportExport»& apptext ) 

{La 

u status stat =- scSuccess; 

w 

£3 EnterMonitor( scString( "SCAPPIXTJUloc" ) ); 

C3 

apptext » 0; 
try { 

apptext * SstText Import Export : : MakeText Import Export ( 1 ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCAPPIXTJUloc" ) ); 
return stat; 

} 

/* BBaeBBBBBBoaBsoenBBBBaBBBBDBaBBsnBDBsnsBBBnBoaeaeaMBBBBBBaoBnBeBaoBa * / 

status scIMPLJEXPORT SCAPPTXT_Delete ( stTextlmportExport* apptext ) 
{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCAPPTXTJelete" ) ); 

try { 

apptext->release ( ) ; 

} 

IGNORE RERAISE; 
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ExitMonitor( scString( M Sc!WFlXr_Delete u ) ); 
return stat; 

} 

/* BaatiiaDttooaoaaaaooaeeoaoaoaoBOSBaBSEiaBBiiBaDnDaeaooetsoBBaacioaaoacBnnoD */ 

status scIMPL_EXPORT SCFS_PasteAPPText ( scColumn* col, 

stText Import Export & appText, 
scRedispList* redispList ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( M SCFS__PasteAPPText " ) ); 
try { 

col->PasteAPPText ( appText, redispList ); 

} 

IGNORE JRERAISE; 

ExitMonitor( scString( "SCFS_PasteAPPText " ) ); 
return stat; 

} 

status scIMPL_EXPORT SCSEL„PasteAPPText ( scSelection* sel, 

stText ImportExportSc appText , 

scRedispList* redispList ) 

€3 

status stat » scSuccess; 
s jt EnterMonitor( scString{ n SCSEL_PasteAPPText" ) ); 

fU try { 

^ sel->PasteAPPText ( appText, redispList ); 

M } 

V* IGNORE.RERAISE; 

P ExitMonitor( scString( "SCSELJ?asteAPPText " ) ); 
return stat; 

aaDooeaeDaaBaaaaBaaBaBBaBBBBeaBaBaBaBBaaaaaaeBBaaaaDnnnoaDnaBaaeaaBB */ 

sj^tus scIMPL_EXPORT SCSTR^GetAPPText ( scStream* stream, 
M stText ImportExportSc appText ) 

*Z status stat ■ scSuccess; 
/*CLIPSTUFF*/ 

EnterMonitor( scString( "SCSTR_GetAPPText " ) ); 
try { 

stream->CopyAPPText ( appText ); 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCSTR_GetAPPText" ) ); 
return stat; 

} 

/* BotiBaBanaBBBBDBDnBsaeaBaaaceanaoBDBaaBaeaDDaaBaeaeaBBBBBBaaDaBaBoaaB */ 

status scIMPL_EXPORT SCSEL_GetAPPText ( scSelection* selection, 

stText ImportExportSc appText ) 

{ 

status stat » scSuccess; 
/•CLIPSTUFF*/ 

EnterMonitor( scString( "SCSEL_GetAPPText " ) ); 
try { 

selection->CopyAPPText ( appText ); 

} 

IGNORE_RERAISE; 
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ExitMonitor( scString( ,l SC5■£_GetAPPText ,, ) ); 
return stat; 

} 

/» eaDtsoDnBOBatiaonnDOnnDDaDnnQDasoDaBaoseoaaaoBaBBnDQannBsnBDBaeBBanoaa * / 

status scIMPL_EXPORT SCCOL„Write( scColumn* col, 

APPCtxPtr ctxPtr, 
IOFuncPtr writeFunc ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL_Write H ) ); 
try { 

col->StartWrite( ctxPtr, writeFunc ); 

scTBObj : :WriteNul 10b ject( ctxPtr, writeFunc ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCCOLJtfrite" ) ); 
return stat; 

} 

/« BnsssaBBztBnnsaDaonosncBDOstiseasoaeBEioBsiesaiaBanecanaaoDooenaseo&asctas «/ 

status scIMPL_EXPORT SCCOL„Read( APPColumn appName, 

scColumn*£c col , 

scSet* enumTable, 

f2 APPCtxPtr ctxPtr, 

~Z IOFuncPtr readFunc ) 

%\\ status stat = scSuccess; 

f{j EnterMonitor( scString( "SCCOL_Read" ) ); 

^ try { 

IJ col « (scColumn* ) scTBObj : :StartRead( enumTable, ctxPtr, readFunc ); 
SJ scAssert( scTBObj : :StartRead ( enumTable, ctxPtr, readFunc ) « 0 ) ; 
" } 

I GNORE_RERAI SE ; 

s 

fi ExitMonitor( scString( "SCCOL.Read" ) ); 
CI return stat; 

>ia 

/jj s BssatioaDaiaBaBaeaBaaBaoBasoaoBDSsaaoaeoaDnataaaBanBBBBaaaanBaaocsoosoe * / 

8* 

/»s ================= SELECTION MESSAGES «=»=««-==«========»/ 

i _j 

slltus scIMPL_EXPORT SCCOL_ClickEvaluate ( scColumn* col, 

const scMuPoint& pt, 
REALS dist ) 

{ 

status stat = scSuccess; 

scMuPoint cmpt « pt; 

EnterMonitor( scString( "SCCOL_ClickEvaluate" ) ); 
try { 

col->ClickEvaluate( cmpt, dist ); 

} 

I GWO RE„RE RA I S E ; 

ExitMonitor( scString ( "SCCOL_ClickEvaluate" ) ); 
return stat; 

} 

/* BaaatiBnBaeBBaBaaaaonBBBOsaaaBBaaBBaBBaaBaaaBBBBaaeaamaBBBaasnanaaaaa * / 

status scIMPL_EXPORT SCCOL_StartSelect ( scColumn* col, 

const scMuPointSc pt, 

HiliteFuncPtr DrawRect, 

APPDrwCtx mat, 

scSelj eiction*Sc select ID ) 
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status stat = scSucces 

EnterMonitor( scString( "SCCOLJStartSelect " ) ); 

#if SCDEBUG > 1 

SCDebugTrace ( 2, scString( "SCCOLStartSelect *4d 2d\n" ) , pt.x, pt.y ); 
#endif 

try { 

col->StartClick ( pt, DrawRect, mat, selectID ); 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( "SCCOLJStartSelect" ) ); 
return stat; 

} 

/* ousmsBaaBBBaBBaBSBBBaBBBBBBBaBaaaBBBBaBBBaaBBBaBBBBBBsaaEsoaBBBoaeiBcsa */ 

status scIMPL_EXPORT SCCOLJStartSelect ( scColumn* col, 

scStreamLocation& mark, 
const scMuPoint& pt, 
HiliteFuncPtr DrawRect, 
APPDrwCtx mat, 
scSelection*& selectID ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCCOLJStartSelect" ) ); 

£3 

col->StartShiftClick( mark, pt, DrawRect, mat, selectID ); 

C" } 

fy IGNOREJRERAISE; 

)** ExitMonitor( scString( "SCCOL_StartSelect" ) ); 
|y return stat; 

M 

i 3 

/"V 5 BBBBBBBStSBBOBBBBBBaaBBBBBBBBBBBBBBBBBanBasBBSBaaBBBBBBBSBSBBBBBBBBBS */ 

y 

si@tus scIMPL_EXPORT SCCOL_ExtendSelect ( scColumn* col, 
t.i const scMuPointSc pt, 

/I Hi 1 i teFuncPt r DrawRect , 

W APPDrwCtx, 

scSelection* select ) 

-Z status stat = scSuccess; 

EnterMonitor( scString( "SCCOL_ExtendSelect " ) ); 
// SCDebugTrace ( 0, scString( "SCCOLExtendSelect ENTER 5£d 2d\n" ), pt.x, pt.y ) 
try { 

raise_if( select -» 0, scERRinput ); 
col->ContinueClick ( pt, DrawRect, select ); 

} 

IGNORE_RERAISE ; 

// SCDebugTrace ( 0, scString( "SCCOLExtendSelect EXIT Zd Zd\n" ), pt.x, pt.y ); 

ExitMonitor( scString( "SCCOL_ExtendSelect" ) ); 
return stat; 

} 

/* aasaaaaaaaaaaaaBaaBBaBaaaaoaBBaaaBaBBBaBBaaBBaaaBaaBBaBBaacsaBaBBBaaxi */ 

status scIMPL_EXP0RT SCCOL_InitialSelect ( scColumn* col, 

TypeSpecSc typespec , 
scSelection*& selectID ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCCOL_InitialSelec* ) ); 
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try { 

col->InitialSelection ( typespec, selectID ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCCOL_InitialSelect" ) ); 
return stat; 

} 

/» cceBaQtiBoiDotianoDoaoongiaoeeaDQQonaaaBooonanaaoDBOoooooitaoaoaoaBBnaaiiB * / 

status scIMPL_EXPORT SCSEL_Decompose ( scSelection* select, 

scStreamLocationSt mark, 
scStreamLocationSt point ) 



{ 



} 



status stat - scSuccess; 

EnterMonitor( scString( "SCSEL_Decompose" ) ); 
try { 

select->Decompose( mark, point ); 

} 

IGNORE„RERAISE; 

ExitMonitor( scString( "SCSEL_Decompose" ) ); 
return stat; 



/» eaaessBBBBBaBBBBBBneBeosBaeBBBaeaeBaaoeBnnnBBessaaBaaBSBSsseaeadDses » / 

sj&tus scIMPL_EXPORT SCSEL_Decompose2 ( scSelection* select, 
~;f scStreamLocationSt mark, 

£H scStreamLocationSt point ) 

status stat = scSuccess; 
H EnterMonitor( scString( "SCSEL.Decompose" ) ); 

*4 try { 

f^i se 1 ect-> Decompose 2 ( mark, point ); 

%J > 

IGNOREJRERAISE; 

C3 

tj ExitMonitor( scStringf "SCSELJDecompose* 1 ) ); 
, ^ return stat ; 

slt mmmmmmmmmmmmmmmmmmmmmmm ^^ 

status scIMPL_EXPORT SCSEL_Invalidate ( scSelection*& select ) 

{U 

status stat - scSuccess; 

EnterMonitorf scString( "SCSEL_Invalidate" ) ); 

try { 

if ( select ) 

select->Invalidate() ; 

} 

IGNORE_RERAISE; 
select = 0; 

ExitMonitor( scString( "SCSEL_Invalidate" ) ); 
return stat; 

} 

/* BsnBBaBaBBBBBBOBanaBanBBoaBaanaDBBBBBBBBSBBaBaBBBBBBBBBBBaeiiBBDsiBBnB */ 

status scIMPL_EXPORT SCSEL_Restore ( const scStream* stream, 

const scStreamLocationSt mark, 
const scStreamLocationSt point, 
scSelection*Sc select, 
Bool geometryChange ) 

{ 

status stat - scSuccess; 
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EnterMonitor( scString( "St^^.Restore" ) ); 

try { 

scColumn* col - scColumn : :FindFlowset ( stream ); 

// we cannot create a selection if there is no layout 
raise_if( col « 0, scERRstructure ); 

select «» col->FlowsetGetSelection () ; 

se lect-> Restore ( Sanark, &point, stream, geometryChange ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSEL_Restore" ) ); 
return stat; 



/* aaaDOQDBnseDDaonaaaasenataoseafiasannaBnBn&DSOBasBBeanBBBBaacsBDDanaen * / 

status scIMPL_EXP0RT SCCOL_SelectSpecial ( scColumn* col, 

const scMuPointfit pt, 
eSelectModi f ier selectMod , 
scSelection*& selectID ) 

{ 

status stat » scSuccess; 

EnterMonitorf scString( "SCCOL_SelectSpecial " ) ); 
12 try { 

= col->SelectSpecial ( pt, selectMod, selectID ); 

H > 

frH IGNORE_RERAISE; 

ru 

.= ExitMonitor( scString( M SCCOL_SelectSpecial " ) ); 
return stat; 

"3 

BnaaeaoonaaaaomaBaaiiaBaeBBBaeeBaBaoaaeaaoaaaafflSBBeasBaBBBBSBBBaaBiinB */ 



status scIMPL_EXPORT SCSEL J4ove( scSelection* select, 
tl eSelectMove moveSelect ) 

z status stat ■ scSuccess; 

H : : 

M EnterMonitor( scString( "SCSELJfove" ) ); 
select->MoveSelect ( moveSelect ); 

} 

I GN0RE_RERAI SE ; 

ExitMonitor( scString( "SCSEL.Move" ) ); 
return stat; 

} 

/* anBaisBBQnnsanonnaisaBnaeeaaeaBaaaaBaBSOBCssnBOBoansaaBBasaBBscaBDcatta * / 

status scIMPL_EXPORT SCSEL.Extend ( scSelection* select, 

eSelectMove moveSelect ) 

{ 

status stat * scSuccess; 

EnterMonitor( scString( "SCSEL_Move" ) ); 
try { 

select->Extend( moveSelect ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( M SCSEL_Move" ) ); 
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return stat; 

} 

/ * BBSBseaBBBBBBBBBaBaosBsoscsaBaasasBBaeBBBaaaBaaaasBSBBBSBBaBBBBaoaaaBa */ 

status scIMPL_EXPORT SCSEL_Hilite ( scSelection* select, 

HiliteFuncPtr DrawRect ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSEL„Hilite" ) ); 
try { 

select->ValidateHilite ( DrawRect ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSEL_#ilite" ) ); 
return stat; 

} 

/* oaoBcgnaooBaamDasoDnonaDDoaacaaoooDaaDneaeoesaDooaciaooDeeBoBiiitBDsSBsa */ 

/ 9k SCSaSBBSBSSSBBSBCSI ED I TING MESSAGES SBSSSSSBBSaBBSSSBSSK/ 

status scIMPL_EXPORT SCSEL_I nsert Key Records ( scSelection* select, 

short keyCount, 

scKeyRecord* keyRecords, /* array of key reeds */ 
scRedispList* redispList ) 

{ 

status stat « scSuccess; 
12 EnterMonitor( scString( "SCSEL_InsertReyRecords" ) ); 

'i try { 

in select->KeyArray( keyCount, keyRecords, redispList ); 

ru > 

* IGNORE_RERAISE; 

ly ExitMonitor( scString( "SCSEL_Insert KeyRecords" ) ); 

!l U return stat; 

S 

asooaoBBDOonDaacaooiDasoaDaeat30BaBast3BBeaB»aaBBeaBBBaaBaBBBBBBaBBBBBo */ 

status SCSEL_InsertField ( scSelection* sel, 

^ const clFieldfic field, 

\ & TypeSpecfi. spec , 

f*i scRedispList* redisplist ) 

status stat » scSuccess; 

EnterMonitor( scString( M SCSEL„InsertAnnotation" ) ); 
try { 

sel->InsertField ( field, spec, redisplist ); 

} 

IGNORE_RE RAISE; 

ExitMonitor( scString( "SCSEL_InsertAnnotation" ) ); 
return stat; 

} 

/* BBBBBBBBBaoaaBanaaaaaoeaaaeBeaaaaaaaaasaaBaaaaaaBBBaaBaBBaBBBaBBaBBa */ 

status scIMPL_EXPORT SCSEL_SetTextStyle ( scSelection* selection, 

TypeSpec style, 
scRedispList* redispList ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( M SCSEL_SetTextStyle" ) ); 
try { 

selection->SetStyle ( style, redispList ); 

} 

IGNORE RERAISE; 
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ExitMonitor( scString( "SC^J^etTextStyle" ) ); 

return stat; 

} 

/* BBBBmBBBaaaBBaBBasaiBsiaaaaaaaaBaaaBaBaBBBBBBaBBBsaaaaaaaaaBBaBBBaBBaa */ 

status scIMPLJEXPORT SCSELJTextTrans ( scSelection* select, 

eChTranType trans , 

int numChars, // this is a modifier for th 

e string 

scRedispList "redispList ) 

{ 

status stat « scSuccess; 

EnterMonitor( scString( "SCSELTextTrans" ) ); 
try { 

select->TextTrans( trans, numChars, redispList ); 

} 

I GNORE_RERAI SE ; 

ExitMonitor( scString( 11 SCSELJTextTrans " ) ); 
return stat; 

} 

/* ooanBetaaDaaseceaaniasBnaaanaonBnseoaBOODdaaBBcaeBtsaDnDnoaootsBaEeaBonD * / 

status scIMPL_EXPORT SCSEL_CutText ( scSelection* selection, 
f=i scScrapPtr& scrap, 

*Z scRedispList* redispList ) 

tfl status stat » scSuccess; 

f LI EnterMonitorf scString( "SCSEL_CutText " ) ); 
H try { 

s.y selection->CutText ( scrap, redispList ); 
^ IGNORE_RERAISE; 

h ExitMonitor( scString( n SCSEL_CutText" ) ); 
H return stat; 

/#l4BBBS3BBBBBBBBBBBBBBSSt3aaaBBaCBaBSsaBBBBBBaBaBBBBBBBBBSaBBSBBBBBBBBBBS8B */ 

status scIMPLJEXPORT SCSEL_ClearText ( scSelection* selection, 
*Z scRedispList* redispList ) 

{%3 

status stat - scSuccess; 

EnterMonitor( scString( "SCSEL_ClearText " ) ); 
try { 

selection->ClearText ( redispList, true ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCSEL_ClearText n ) ); 
return stat; 

} 

/* BBBBBBSBaBBaaBBBSSBBaaaaaaaaaaaaaaaaaaeaaaaBBaBBBBBBBBaaaaBaaaBBBBaB * / 

status scIMPL_EXPORT SCSEL_CopyText ( scSelection* selection, 

scScrapPtrEc scrap ) 

{ 

status stat ■» scSuccess; 

EnterMonitor( scString( "SCSEL_CopyText " ) ); 
try { 

selection->CopyText ( scrap ); 

} 

IGNORE.RERAISE; 
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ExitMonitor( scString( "SCSMPCopyText" ) ). 
return stat; 



/* BaaaaaBaaaBBBBBBaaBBaaasBBBBaaBBBBasBSBBSBnaaeaBssaaBBsaaaBaBBBBBBBB * / 

status scIMPL_EXPORT SCSEL_PasteText ( scSelection* selection, 

scScrapPtr scrap , 
TypeSpec style , 

scRedispList* redispList ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCSEL_PasteText " ) ); 
try { 

selection->PasteText ( (scStream») scrap, style, redispList ); 

} 

IGNORE_RERAISE ; 

ExitMonitor( scString( "SCSEL__PasteText" ) ); 
return stat; 

} 



status scIMPL_EXPORT SCSCR_ConToSys ( scScrapPtr scrap, 
p SystemMemoryObjectS. pSysConBlock ) 

status stat « scSuccess; 

f\\ scContUnit* para * (scContUnit*) scrap; 

m 

"~ EnterMonitor( scString( "SCSCR^ConToSys" ) ); 
U try { 

%a if ( scrap->IsClass( "scColumn" ) ) 

|r» para - ( (scColumn*) scrap) ->GetStream( ) ; 

s if ( para->IsClass( "scContUnit" ) ) 

□ ( (scStream*)para)->STRWriteMemText ( false, pSysConBlock ); 

else 

"~ 4 raise ( scERRidentif ication ); 

ly } 

^ IGNORE_RERAISE; 

^ ExitMonitor( scString( "SCSCR_ConToSys" ) ); 
£3 return stat; 

} 

SaBBBBBBBBBBaBBBSBBBBBaBEStBCtaaaBBaBBBBBBBBBaBBBBBBBBBBBasaBStBBBBBBBaB * / 

status scIMPL_EXPORT SCSCR„SysToCon ( scScrapPtr& scrapP, 

const scChar* sysScrapPtr, 
TypeSpec ts ) 

{ 

status stat - scSuccess; 

EnterMonitor( scString( "SCSCRJSysToCon" ) ); 
try { 

scrapP *» scStream: :ReadMemText ( ts, sysScrapPtr ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCSCRJ3ysToCon" ) ); 
return stat; 

} 

/ * BBBBaBBBBBBBBBaaaaaaaBBBBBaaBBBBBaBBBBBaBBaaBBaaBaaaaaaBBBaaBBBBBBBB */ 

status scIMPL_EXPORT SCSEL_Iter( scSelection* select, 

Subst ituteFv"c f unc , 
36 



File: Work\CrtPrt\Stonehnd\Scapi .cpp p g: 37 

scRedispList* damage ) 

status stat « scSuccess; 
EnterMonitor( scString( "SCSEL_Iter n ) ); 

try { 

select->Iter( func, damage ); 

} 

IGNORE^ RERAISE ; 

ExitMonitor( scString( "SCSEL.Iter" ) ); 
return stat; 

} 

status scIMPL_EXPORT SCSTR_Iter( scStream* stream, 

Subst ituteFunc f unc „ 
scRedispList* damage ) 

{ 

status stat » scSuccess; 
EnterMonitor( scString( ,, SCSTR_Iter" ) ); 

try { 

stream->Iter( func, damage ); 

} 

IGNORE_RERAISE; 

^ ExitMonitor( scString( "SCSTR.Iter" ) ); 
^rf return stat; 

/•^ nanBSBBnsiDnssaBaaBDaceEaBBBBaBnBscaaaaaoosoanBaBBsBBaaaBeaaoaeaasaea */ 

/V3 deprecated 

status scIMPLJXPORT SCSTR_Search ( scStream* stream, 

? ? const UCS2* findString, 

^ SubstituteFunc func, 

s scRedispList* damage ) 

t , status stat » scSuccess; 
^ EnterMonitor( scString( "SCSTR_Search N ) ); 

id 

^ n throw( scERRnotlmplemented ); 

£3 IGKJORE.RERAISE; 

ExitMonitor( scString( "SCSTR_Search" ) ); 
return scSuccess; 

} 

/* BDaeBBaBBanaaBBanosaaaaaasaaBBicoBSBBanaaaBaBaBasaaseatiBaBBaoaeaBBsae » / 

// deprecated 

status scIMPL_EXPORT SCSEL.FindString ( scSelection* select, 

const UCS2* findString ) 

{ 

status stat » scSuccess; 

EnterMonitorf scString( ,, SCSEL_FindString" ) ); 
try { 

throw( scERRnotlmplemented ); 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCSEL_FindString " ) ); 
return scSuccess; 

} 

37 
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,_^lfetream( const scSelection* selecti^r^ 



status scIMPL_EXPORT SCSEL jPIBtream ( const scSelection* selection 

scStream*& stream, 
TypeSpec& ts ) 

{ 

status stat = scSuccess; 

EnterMonitor( scString( "SCSEL_GetStream" ) ); 
try { 

stream * selection->GetStream( ) ; 

ts « selection->GetSpecAtStart () ; 

} 

IGNORE.RERAISE; 

ExitMonitor( scString( "SCSEL_GetStream M ) ); 
return scSuccess; 

} 

/* i3maaBDBQaDaae«Ba3eaBoaaDac3aacisatiiaaaBeaBmatiaBoooosi3nsBaoi3nnscBans(iaDa * / 

status scIMPL_EXPORT SCSTRJsTthParaSelect ( scStream* streamID, 

long nthPara, 
scSelection* select ) 

{ 

status stat => scSuccess; 

EnterMonitor( scString( "SCSTRJNthParaSelect " ) ); 
£3 try { 

= select->NthPara( streamID, nthPara ); 

H > 

I'" I GNORE_RERA I SE ; 

Pi S 

8 Li 

*S ExitMonitor( scString( "SCSTR_NthParaSelect " ) ); 
return stat; 

"-■4 

/tsHB3BBaaBaBOBBooBODoaaasBBaBaBBBBnsBaBBOBBaaBSBoeDOsasBt)BBBasBBBBaBBD */ 

#Sfdef _RUBI_SUPPORT 

status scIMPLJXPORT SCSEL_GetAnnotation ( scSelection* select, 

5 1j int nth, 

^ scAnnotation& annotation ) 

f2 status stat » scSuccess; 

*~ EnterMonitor( scString( "SCSEL_GetAnnotation" ) ); 
try { 

select->GetAnnotation ( nth, annotation ); 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( "SCSEL_GetAnnotation u ) ); 
return stat; 

} 

/* BSBSsoaasBBaaBasBaBaBBsaeESBBBBBaBBBasBBoaBaBBBnasaBasiBBaBBBBaBBSBBOB * / 

status scIMPL_EXPORT SCSEL_ApplyAnnotation ( scSelection* select, 

const scAnnotationSc annotation, 
scRedispList* redisplayListH ) 



{ 



status stat - scSuccess; 

EnterMonitor( scString( "SCSEL_ApplyAnnotation" ) ); 
try { 

select->ApplyAnnotation ( annotation, redisplayListH ), 

} 

IGNORE_RERAISE; 

ExitMonitor( scString( M SCSEL_ApplyAnnotatirri " ) ); 

38 



File: Work\CrtPrt\Stonehnd\Scapi .cpp Pg; 39 

return stat; 

} 

#endif 

/* EaaBnBendaDDeaBaD&aBBaDmasaBnDnnaonsasBsnoaonasoBeeDacoaaaeBaDCBnsso */ 
/* asaBBBaaBDaDaBasaBsaaaaBaBDasBSBSBOSDasoDBaBsaBaacaaBBoessaaBSBBaaaD * / 
/4t aaeaeBaBaasBBeBBBaaBBBBBBBBBBBBBBBBBaBoaBBBBBBBeBBBBBsaBBBssBaBBaeaa * / 

void scIMPL_EXPORT SCCOL„InvertExtents ( scColumn* col, 

HiliteFuncPtr func, 
APPDrwCtx drawCtx ) 

{ 

status stat = scSuccess; 
try { 

col->InvertExtents ( func, drawCtx ); 

} 

I GNORE_RERAI SE ; 

} 

/4t oooDBaaaBDOBoanDeoaaoaaBSODeaaaeaBaaaaaBeaBBeaBaaaBaBanaaaonBBBBaosa 41 / 

#if SCDEBUG > 1 

long scIMPL_EXPORT SCCOL_DebugSize ( scColumn* col ) 

{ 

return sizeof( scColumn ) + ( col->GetLinecount ( ) • sizeof( scTextline ) ); 

/,•". BBBBBBBOBaBBiaBaOSSeaBBSSBBaaiBBBBBmBBBBSBaBBBBBBSaBBBDaBSBDSaSBiaBBSBa 4f/ 

tn 

long scIMPL_EXPORT SCSTR_DebugSize ( scStream* stream ) 

0 J 

j. 5 ! return stream- >STRDebugS i ze ( ); 

/4>-J BaBSBBaBaBBBaBaBBBBBBBBaaBBBSBSBBBBaBBSBBBSSBBaBBBaaaaBBBBBaSBaBBBBa * / 

C3 

void scIMPL_EXPORT SCCOL_InvertRegion ( scColumn* col, 

! =a HiliteFuncPtr func, 

I J APPDrwCtx drawCtx ) 

{'J 

E.s status stat => scSuccess; 
try { 

scFlowDir fd( col->GetFlowdir ( ) ); 
□ if ( col->GetRgn() ) 

RGNInvertSlivers( col->GetRgn ( ) , drawCtx, func, col->GetSize ( ) , fd . IsVertical ( ) ); 

} 

IGNORE_RERAISE; 

} 

/4t BasBBBSBBeBBaaBaBaaaBBBBaBBaBBaBBiBBBBBBBBBaBBBBBBBBBBBeaaBeasBBBaBsa 41/ 

void scIMPL_EXPORT SCDebugColumnList ( void ) 

{ 

scColumn* col; 

SCDebugTrace ( 0, scString( "Toolbox Column list start\n" ) ); 

for ( col - scColumn: :GetBaseContextList( ); col; col - col->GetContext ( ) ) { 

SCDebugTrace ( 0, scString( "\tcol 0x£08x appnarae 0x%08x\n" ), col, col->GetAPPName ( ) ): 

} 

SCDebugTrace ( 0, scString( "Toolbox Column list end\n" ) ); 

} 

/*» BBBBBBBBaaBBBaaBBBBBBBaaBBaBBBBaBBBaBBSBBBBBBBBBSaBBSBBBBSBBBBBaBana * / 

void scIMPL_EXPORT SCDebugColumn ( scColumn* col, 

int contentLevel ) 

{ 

SCDebugTrace ( 0, scString( "Column 0x208x an»iname 0x£08x 5£d Zd Jte\n" ), 
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col, col->C^^BpName() , 
col ->Width (^^ol ->Depth ( ) „ 
col->GetVertFlex() ? "VFLEX" : "noflex" ); 

if ( contentLevel ) { 
scContUnit* p; 

for ( p - col ->Get Stream () ; p; p - p->GetNext() ) 

SCDebugTrace ( 0, scString( "vtpara 0x#08x\n" )„ p ); 

} 

} 

void scIMPL_EXP0RT SCDebugParaSpecs( scSelection* sel ) 
{ 

#if 1 

scSelection sorted ( *sel ); 
sorted . Sort ( ) ; 

scContUnit* cu « sorted .GetMark (). fPara; 

for ( ; cu && cu !- sorted .GetPoint (). f Para- >GetNext () ; cu - cu->GetNext ( ) ) 
cu->DebugParaSpecs ( ) ; 

#else 

if ( sel->IsSliverCursor() ) 

sel->GetMark() .fPara->DebugParaSpecs() ; 

#endif 



d scIMPL_EXPORT SCSTR_Debug( scStream* str ) 



str->STRDbgPrintInfo( ); 

m = •/ 

#endif /* DEBUG •/ 

M - = / 

t5 ^ 

M 

13 
£3 
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File: SCCHAREX.H 

SHeader: /Pro jects/Toolbox/ct /SCCHAREX.H 2 5/30/97 8:45a Wmanis $ 
Contains: character exchange from toolbox to outside world 
Written by: Lucas 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#define scIndentSpace 



0x0007 deprecated 3/18/96 warn 



#ifndef _H_SCCHAREX 
#define _H_SCCHAREX 

#include "sctypes . h " 



#efef ine 
#<fe£ine 
#<|$f ine 
#de£ine 
#dif ine 
#ds£ine 
tfdejine 



scLe ft Arrow 

scRightArrow 

scUpArrow 

scDownArrow 

scParaSplit 

scBackSpace 

scForwardDe 1 ete 



((UCS2J1) 
((UCS2)2) 
( (UCS2J3) 
((UCS2)4) 
((UCS2)5) 
((UCS2J6) 
((UCS2)7) 



// delete character backward 
// delete character forward 



//Jthe following are characters actually stored in the stream and do have 
/✓*=real character codes 



#d&fine scEndStream 



/«f=Cx0001 
/*1bx0002 
/* v tlx0003 

/*;yoxooo4 

/•^xOOOS 
/4ix0006 



IS 

is 
is 
is 
is 
is 



taken 
taken 
taken 
taken 
taken 
taken 



*/ 
*/ 
*/ 
*/ 
»/ 
*/ 



#de:"fine scEmptySpace 
#4Sfine scTabSpace 
#define scHardReturn 
#define scVertTab 
tfdefine scField 



0x0000 



0x0008 
0x0009 
0x000a 
0x000b 
0x000c 



/* a horizontal move that is meaningless to the user */ 
/* part of the mac character set */ 
/* part of the mac character set «/ 

/* field character */ 



/* OxOOOd is not taken 
/* OxOOOe is not taken 
tfdefine scRulePH 
/* 0x0010 is not taken 
#define scParaStart 
cursor position */ 
#define scParaEnd 
#define scQuadCenter 
#define scQuadLeft 
#define scQuadRight 
#define scQuadJustify 
#define scFixAbsSpace 
#define scFixRelSpace 
#define scFillSpace 
#define scNoBreakHyph 
#define scDiscHyphen 
#define scFigureSpace 
#define scThinSpace 
#define scEnSpace 
#define scEmSpace 



*/ 
*/ 



*/ 



OxOOOf 

0x0011 /» this has no meaning outside of a report to the client of the 



0x0012 
0x0013 
0x0014 
0x0015 
0x0016 
0x0017 
0x0018 
0x0019 
0x001a 
0x001b 
0x001c 
0x00 Id 
OxOOle 
OxOOlf 



/* para break 



/* absolute fixed 
/» relative fixed 



space 
space 



*/ 

stored 



in rlu's */ 
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#define scWordSpace 
#define scRomanWordSpace 
#define scKan j iWordSpace 

#define scBreakingHyphen 
#define scNoBreakSpace 
#define scEnDash 
#define scEmDash 



0x0020 

scWordSpace 

0x8140 



// 1 'or 0x20 or 32 



OxOOaO /• part of the mac character set */ 

OxOOdO 

OxOOdl 



inline Bool IsBreakingCharacter ( UCS2 ch ) 
{ return ch « scBreakingHyphen | | ch ^ 



scEnDash | | ch « scEmDash; } 



UCS2 CMinputMap( ushort ); 



UCS2 CMctToAPP( UCS2 ); 
UCS2 CMappToCT( UCS2 ); 
int CMcontent( UCS2 ); 



/» from APP to Stonehand - 
* on file importing 
*/ 

/* from Stonehand to APP */ 
/* from APP to Stonehand */ 
/* is keystroke a selection change 

* or a real input of content 

*/ 



void 



n 

•z sr 

#ejrwiif /* Ji_SCCHAREX «/ 



CMmakeKeyRecordTwo ( sc Key Records, 
UCS2, 
GlyphS ize, 
TypeSpec , 
Bool, 

scStreamLocation& ); 



Id 
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/•»•••»••»•*••«••••»*•••« 

File: SCCHAR.H 



$Header: /Projects/Toolbox/ct/SCCHFLAG.H 2 5/30/97 8:45a Wmanis $ 



Contains: Flags for the glyph processing. 



Written by: Manis 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc . 

#ifndef __H_SCCHAR 
#define _HJ3CCHAR 

#define SIZE_OF„MACHINE 256 



/* character definitions */ 
#aifine MIlsLCHARACTER 
#ggfine MAX_CHARACTER 

sf^uct scCharFlagsl { 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 

unsigned 



START_STREAM 
(SIZE_OF„MACHINE - 1) 



fFauxChar 


: 16; 


fDiscHyph 


1; 


fNoBreak 


: 1; 


fHyphLevel 


3; 


fAutoKern 


. 1; 


fDropCap 


: 1; 


fLineBreak 


1; 


fField 


8; 



// for alignment purposes 



// why do 
// why do 



need this 
need this 



unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 



fauxchar_ 


■ 16; 


// 


for alignment purposes 


dischyph_ 


1; 










nobreak_ 


: 1; 










hyph levels 


' 3; 










autokern_ 


. 1; 










dropcap_ 


: 1; 


// why 


do 


i need 


this 


linebreak_ 


1; 


// why 


do 


i need 


this 



nt 



unsigned spacepos_ 



unsigned 
unsigned 
unsigned 



warichu. 
rubi_ 
renmo j i_ 



// position of space leading or trailing or none in escapeme 

//if non-zero represent # lines 

// annotated character (s) 

// max target of 7 characters 



class scCharFlags { 

friend class CharRecord; 

public : 

void ClrCJKVarious( void ) 

{ 

ClrVarious ( ) ; 

f 2_ .spacepos_ « 0; 

} 



File: Work\CrtPrt\Stonehnd\Scch^feg . h 



void ClrVarious( void ) 

{ 

f fLineBreak ■ 0; 
fl_. fHyphLevel - 0; 

} 



// 
// 
// 
// 
// 



int operator" ( const scCharFlags& flags ) const 

{ 

return f « flags.f ; 

} 

scCharFlags& operator- ( const scCharFlags& flags ) 



{ 



} 



f - flags.f ; 

return *this; 



fy 

o 

W 



Q 
--4 
W 

13 



void SetLineBreak (void) 

{ 

fl_. fLineBreak « 1; 

} 

void ClrLineBreak(void) 
{ 

fl_. fLineBreak » 0; 

} 

Bool IsLineBreak(void) const 

{ 

return fl_. fLineBreak; 

} 

void SetDropCap( void ) 

{ 

fl_.fDropCap « 1; 

} 

void ClrDropCap( void ) 

{ 

fl_.fDropCap = 0; 

} 

Bool IsDropCap( void ) const 

{ 

return f 1_. fDropCap; 

} 

void SetKernBits( void ) 

{ 

f 1_ . f AutoKern « 1; 

} 

void ClrKernBits( void ) 

{ 

fl_.f AutoKern - 0; 

} 

Bool IsRernPresent ( void ) const 

{ 

return f 1_ . f AutoKern ; 

} 

void SetAutoHyphen ( unsigned val ) 

{ 

f 1_ . fHyphLevel « val ; 

} 

void ClrAutoHyphen( void ) 

{ 

fl_. fHyphLevel =0; 

} 

unsigned GetHyphLevel ( void ) const 
{ 

return fl_. fHyphLevel ; 

} 



void 



SetDiscHyphen ( void ) 



File: Work\CrtPrt\Stonehnd\Scc 



void 



Bool 



} 



f l_.fDiscHyph = 1; 



ClrDiscHyphen ( void ) 
{ 

f l_.fDiscHyph = 0; 

} 

IsDiscHyphen ( void ) const 



return f l_.fDiscHyph; 



void SetNoBreak( void ) 

{ 

fl_.fNoBreak - 1; 

} 

void ClrNoBreak( void ) 

{ 

fl_.fNoBreak = 0; 

} 

Bool IsNoBreak( void ) const 

{ 

return f 1_ . f NoBreak ; 

} 



Bool 



^=void 



y 

h jvoid 

3.-5 

a 

f^void 



UBool 



IsHyphPresent ( void ) const 
{ 

return GetHyphLevel ( ) | | IsDiscHyphen ( ) ; 

} 

ClrAutoBits( void ) 
{ 

ClrAutoHyphen ( ) ; 
ClrRernBits() ; 

} 

SetRubi ( void ) 
{ 

f2_.rubi_ - 1; 

} 

ClrRubi ( void ) 
{ 

f2_.rubi » 0; 

} 

IsRubi ( void ) const 
{ 

return f2_.rubi_; 

} 



void 



void 



unsigned 



SetRenMoji( unsigned val ) 
{ 

f 2_.renmoj i_ ° val; 

} 

ClrRenMoji( void ) 
{ 

f 2_.renmoj i_ =0; 

} 

GetRenMoji( void ) const 
{ 

return f 2„.renmoj i_; 

} 



void 



void 



unsigned 



SetWarichu( unsigned val ) 
{ 

f2_.warichu_ » val; 

} 

ClrWarichu( void ) 
{ 

f2_.warichu_ = 0; 

} 

GetWarichu( void ) const 
{ 
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Bool 



void 



void 



void 



unsigned 



i^roid 

Cn 

fj4int8 
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Bool 



U 
v.! 



private : 
' _void 



void 



\Stonehnd\Scc^^ag . h 

return f2_ .warichu_ 



Pg: 4 



sSpecialNihon ( void ) const 

return f 2_.renmoj i_ || f2_ ,rubi_ || f 2_.warichu_; 

ClrSpecialNihon( void ) 

ClrRubiQ; 
ClrRenMoji () ; 
ClrWarichu() ; 

SetSpacePosition( unsigned val ) 

f 2_.spacepos_ = val; 
ClrSpacePosition ( void ) 

f 2_.spacepos_ =0; 
GetSpacePosition ( void ) const 
return f 2__ .spacepos_; 

SetField( uint8 field ) 
fl_.fField = field; 
GetField( ) const 

return (uint8) fl_. f Field; 

sBreakable( void ) const 

return !( f2_.renmoji_ || f2_.rubi_ || f2_.warichu_ || fl_.fNoBreak ); 

} 



ClearMinFlags ( void ) 
{ 



f 1 


.fDiscHyph 




0; 


f 1_ 


. fKIoBreak 






f 1 


.fHyphLevel 




0; 


f 1 


. f AutoKern 




0; 


f 1_ 


. f DropCap 


S3 


0; 


f 1 


. fLineBreak 




0; 


irAHFlags( void 


) 




f2_ 


.dischyph_ 




0; 


f2_ 


. nobreak_ 


=5 


0; 


f2„ 


.hyphlevel_ 




0; 


f2„ 


,autokern_ 


B 


0; 


f2_ 


,dropcap_ 




0; 


f2_ 


.linebreak_ 




0; 


f2_ 


.spacepos_ 




0; 


f2„ 


,warichu_ 




0; 


f2_ 


.rubi_ 


*3 


0; 


f2 


. renmo j i_ 




0; 



} 



union { 

scCharFlagsl fl_ 

scCharFlags2 f2_ 

uint32 f 
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}; 

/* eb a o cs o oss a cs a S3 a a b a m a cs s a o s a 



inline scCharFlags& MkChrFlgs( ushart& flags ) 
{ 

return * (scCharFlags*)&f lags; 

} 



#endif /« _H_SCCHAR •/ 



t y 



O 

la 
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File: SCCOLINF.C 

$Header: /Projects/Toolbox/ct/SCCOLINF .CPP 2 5/30/97 8:45a Wmanis $ 
Contains: code to collect column redisplay information 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox Application software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scpubobj ,h" 
^include "sccolumn.h" 
^include "scglobda .h" 
^include "screfdat.h" 

43 

vortfi scRedispList : :ReInit ( ) 

{ m 

> ru 

/» fe»jb BBSBBSBaaaBaBBBBBBBBBEBBBaBaBBBBBDBBBBBBB8&BBBeBeBaBBBSBBBBDDaSBB9 * / 

\ : i 

scGpl Redisplay* scRedispList : :FindCell ( const scColumn* col ) const 

{ f t 

%=Hong limit - GetNumltems () ; 

■s scCol Redisplay* colredisp » (scColRedisplay*)Lock ( ) ; 

jr~ior ( ; limit — ; colredisp++ ) { 

"'4 if ( colredisp->fColumnID — col ) { 

[J Unlock(); 

^ return colredisp; 

C3> } 

Q 

Unlock (); 
return 0; 

} 

/» aBaBBBaaaBBaBBSBBDBBBBBBaBaBBasoBBaBBeaBaasaBBaBBBaBDBsaBSBaaeaaaaBB » / 

void scRedispList : :AddCell ( scColumn* col ) 
{ 

scAssert( !FindCell( col ) ); 

scCol Redisplay colredisp ( col, col->GetAPPName ( ) ); 
AppendData ( (ElementPtrJ&colredisp ) ; 

> 

/* aBBBBSSBBaoaBaaaaBaBBBBBaBaBBBBBBBBaBBBBBBBBBBBBaBaaBBSBBB&BDBBBBBBS */ 

void scRedispList : :AddColumn ( const scCOLRefData& colRefData ) 
{ 

Lock ( ) ; 

scColRedisplay* cell =• FindCell( colRefData . f Col ); 
if ( Icell ) { 
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Unlock () ; 
AddCell( colRef Data. f Col ); 
Lock ( ) ; 

cell =• FindCell( colRef Data . f Col ); 

} 

colRef Data . fCol->ComputeInkExtents ( ) ; 
cell->fWidth « colRefData . fCol->Width( ) ; 

eel l->f Depth » colRefData . f Col ->Depth() ; 

cell->fExRect = colRefData . f Col ->GetInkExtents () j 

cell->fAdditionalText = colRefData . f Col- >MoreText ( ); 

scXRect fRepaintRect ( cell->fRepaintRect ); 
fRepaintRect .Union ( colRefData . fLineDamage ); 
eel l-> fRepaintRect - fRepaintRect; 

cell->fHasRepaint « fRepaintRect .Valid () ; 

scXRect f DamageRect ( eel l->f DamageRect ); 
f DamageRect .Union ( colRefData . f LineDamage ) ; 
eel l->f DamageRect - f DamageRect; 

cell->fHasDamage - f DamageRect .Valid () ; 



Unlock (); 

} 



/* 



void^scRedispList : :AddColumn( scColumn* col, scXRect& xrect ) 

m 

^scCol Redisplay* cell =• FindCell( col ); 

'%*£ ( (cell ) { 
[il Unlock (); 
,1" AddCell( col ); 
Lock(); 

U cell » FindCell( col ); 
a > 

^ol^ComputelnkExtents ( ) ; 

Hell->fWidth » col->Width(); 

|i$:ell->f Depth - col->Depth ( ) ; 

= iell->fExRect =- col->GetInkExtents{ ) ; 

! Jell->fAdditionalText = col->MoreText ( ) ; 

C^cXRect fRepaintRect( eel l-> fRepaintRect ); 
fRepaintRect.Union( xrect ); 
eel l-> fRepaintRect » fRepaintRect; 
cell->fHasRepaint = fRepaintRect .Valid () ; 

Unlock (); 

} 

/< □esBeaBasanmanQciaBSSBasBBaeaneaaaQaDBSsaaeesaeaDaQooonEiaosaasaeDBBSB * / 

void scRedispList : :SetImmediateRect ( scColumn* col, 

const scImmediateRedispSc immedredisp ) 

{ 

Lock ( ) ; 

scCol Redisplay* cell « FindCell( col ); 

if ( Icell ) { 
Unlock (); 
AddCell( col ); 
Lock ( ) ; 

cell « FindCell( col ); 

} 

cell->f ImmediateRedisplay » true; 
cell->f ImmediateArea « immedredisp; 
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Unlock (); 

} 

status scRedispList : :CL_GetColumnData ( APPColumn appname, 

scCol Redisplay^ data ) const 

{ 

status stat » scSuccess; 

volatile int locked ■ false; 
volatile int found - false; 

try { 

long limit « GetNuraItems() ; 

scCol Redisplay* colredisp - (scColRedisplay*)Lock () ; 

locked = true; 

for ( ; limit — ; colredisp++ ) { 

if ( colredisp->fAPPName — appname ) { 
data ■ »colredisp; 
found - true; 

} 

} 

raise_if( found « false, scERRstructure ); 

} 

IGtJORE.RERAISE; 
^areturn stat; 
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/**••••«••»•*•••»••»••»*«•« 

File: SCC0LUM2.C 



SHeader: /Projects/Too lbox/ct/SCC0LUM2 -CPP 2 5/30/97 8:45a Wmanis $ 

Contains: The code to vj columns and to save the line state 

before reformatting and then compare it post reformatting 
to determine redisplay. 



Written by: Manis 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

***«»«**»•»•***•**•**«««••••••••*•••**»*»•*»«*•*••*««••••»••••»•«»»••••»/ 



#include 
^include 
#include 
#include 
#ine3rude 
#in^lude 
#in£3jude 
#inll-ude 
#incj|ude 
#incJude 
#incJ|ude 



h" 
h" 



"sccolumn.h" 
"scglobda.h" 
"sctextli 
"scpubobj 
"scmem.h" 
"scexcept .h" 
"screfdat.h" 
"sccallbk.h" 
"scstcach.h" 
"scstream.h" 
<limits ,h> 



/« 

/*■ 



-J. 



»/ 
»/ 



strait VJSpace { 

"IficroPoint opt; 

*HicroPoint max; 

iiBEAL upperBound; 

C3 

/» BsSaSSS DBBDBSSaSBBaaDaBBBHOBBI 



static void 
static void 

enum eDoVJ { 
eVJBottom 
eVJCenter 

}; 



C0LFlushTop( scColumn* ); 
COLFlushTopBottom( scColumn* ); 



1, 



#def ine 
#def ine 



growUnits 30 

growSize ( sizeof ( VJSpace ) » growUnits ) 



»/ 



/* ossDaeoDBamsaeaBSBiaBaBassBaaBiBeBBesBdnBBBsaBsaaaHseBtiaBiiisse: 

/* Add a space record to the end of the handle. 

static void InsertSpaceRecord ( VJSpace*& space, 

MicroPoint opt, 
MicroPoint max, 
size_t numRecords ) 

{ 

size_t newSize » ( numRecords + 1 ) * sizeof ( VJSpace ) ; 

if ( MEMGetSizePtr( space ) <- newSize * sizeof ( VJSpace ) ) 

space * (VJSpace* )MEMResizePtr( (void**)&space, newSize * sizeof ( VJSpace ) ); 
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} 



VJSpace* spacePtr - space; 
spacePtr +■» numRecords; 

spacePtr->opt « opt; 

spacePtr- >max » max; 

spacePtr->upperBound - (REAL)max / opt; 



/• aa a aaaaaa a aaa aaaaa bbbbbsbbb aaa as sasaassa bbb a sasaaaaa aa bbbbbsbb asses*/ 

/» Return the minimum line space multiplier allowed »/ 
/• by any line in the column. •/ 

static REAL MaxSpaceStretch ( VJSpace* space, 

size_t numRecords ) 

{ 

REAL maxStretch; 

if ( numRecords-- ) { 

maxStretch » space->upperBound; 
space++; 

} 

else 

return 0; 

for ( ; numRecords--; space++ ) { 

if ( space->upperBound < maxStretch ) 
maxStretch = space->upperBound; 

} 

return maxStretch; 

% J 

/^pa a a b s b s a s a a b a a a a a a a a a a a a a a a a a a a a a a a a a b a a a a b a b a a a b s b b s b a a a a a a a a a a a a»/ 

<•! Return the total line space expansion if every line's space is */ 
/fJ multiplied by maxStretch. */ 

static MicroPoint Tota ISpaceSt retch ( VJSpace* space, 
l~. size_t numRecords, 

""■4 REAL maxStretch ) 

{£3 

REAL totalStretch = 0; 

3 
f 

for ( ; numRecords — ; space++ ) 
H 4 totalStretch +» space -> opt * ( maxStretch - 1 ); 

Id 

*T return scRoundMP( totalStretch ); 

£3 

/•Return the product of the optimum line space and »/ 
/* the stretchFactor to calculate the distance to shift a line down. */ 

static MicroPoint LineShift( VJSpace* space, 

REAL stretchFactor, 
short index ) 



{ 



} 



MicroPoint shift; 

/* MicroPoint * REAL •/ 
shift " (MicroPoint) ( space [index] .opt * ( stretchFactor - 1 ) ); 

return shift; 



/*8888a a BBBBsaaaaaaaa aaeaaaa bbb a bb bbbb 8888 8888 888 a aasaaaaa a a a a a a a b b b b»/ 

/* If flag =»= center, we do center vertical justification */ 
/* Otherwise, we do flush bottom. */ 

static void COLFlushBottom( scColumn* col, 

eDoVJ flag ) 

{ 

scTextline *txl; 
scTextline *lastLineH; 
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cc^^n; 



scTextline *tLine; 
TypeSpec spec ; 
MicroPoint vDif f , 

capHeight, 

maxDepth = LONG_MIN; 
scXRect 1 i neRect ; 
RLU capHiteRlu, dl, d2„ d3; 

scRLURect rect; 
Bool vertical - false; 

COLFlushTop( col ); // remove effects of previous vj 

if ( col->GetFlowdir() . IsVertical ( ) ) { 
vertical = true; 
maxDepth = LONG_MAX; 

} 

lastLineH « txl » col->GetFirstl ine ( ) ; 
if ( txl NULL ) { 
return; 

} 

for ( ; txl !« NULL; txl - LNNext ( txl ) ) { 
tLine « txl; 

if ( vertical ) 

maxDepth « MIN( tLine->GetOrigin ( ) .x„ maxDepth ); 
else { 

/* Find the depth of the last line •/ 
maxDepth « MAX( tLine->GetOrigin ( ) ,y„ maxDepth ); 

> 

%J lastLineH = txl; 

o > 

ill /• Calculate the distance between the last possible */ 
fU /* line position and our last actual position */ 
1,3 if ( vertical ) 
<T| vDiff - maxDepth; 
else 

*4 vDiff » col->Depth() - maxDepth; 

C3 

MicroPoint maxlead = lastLineH->MaxLead ( spec ); 

vDiff — CSlastLin©Position( col->GetAPPName( ) , spec ); 

12 

~~4 if ( flag eVJCenter ) { 

/« For center justification, cut the distance to move each 

* line in half Further adjustment must be made for the vertical 

* space occupied by the first line. 
Q »/ 

H if ( ( txl * col->GetFirstline() ) ! = NULL ) { 

MicroPoint maxlead » txl->MaxLead ( spec ); 

scCachedStyle: :SetFlowdir( col->GetFlowdir( ) ); 
scCachedStyle: :GetCachedStyle( spec ); 

FIgetRLUFontExtents( scCachedStyle : :GetCurrentCache( ) .GetSpec () , capHiteRlu, dl„ d2, d3, 

rect ) ; 

capHeight *= scRoundMP( (REAL) scCachedStyle: :GetCurrentCache ( ) .GetPtSize ( ) / scBaseRLUsys 
tem * capHiteRlu ); 

vDiff -= CSfirstLinePosition( col->GetAPPName ( ) , spec ); 
vDiff +» capHeight; 

vDiff /= 2; 

} 

} 

if ( vDiff 0 ) { 

col->SetInkExtents( 0, 0, 0, 0 ); 

for ( txl » col->GetFirstline(); txl != NULL; txl - LNNext ( txl ) ) { 
/« Shift all the lines down by «/ 
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:o^ri2 

eadi 



/* the specif iea distance */ 
txl->SetVJ( vDiff ); 
txl->QueryExtents ( lineRect ); 
col->UnionInkExtents ( lineRect ); 



/* SBSBSBaBSBBBBBSBBBaBBSBBBBBBBBaaaBBBSBSOBaBanaaBsssBBBBasaaBBBBBBB e» • / 

/* Vertical justification on a column. Includes both feathering and */ 
/* paragraph spacing. */ 

// TOOLBOX BEHAVIOR 

// We will exceed maximum values to VJ at all costs 

// In such excessive conditions, we won't use extra 

// para spacing to achieve our end; we will use 

// extra line spacing. 

// or 

// We will not exceed max values and thus may not achieve 

// vertical justification 

// 

static const Bool exceedMaxValues = false; 

static const Bool extraPPspacing » false; 



static void COLFlushTopBottom( scColumn *col ) 
{ 

VJSpace* lineSpace =0; 
VJSpace* paraSpace = 0; 



£3 

t'5 



Id 



C3 

a 

Q 
U 



scTextline* txl; 
scTextline* tLine; 
TypeSpec spec; 
scContUnit* InParaH; 
scContUnit* paraH - NULL; 
short interPara, 
interLine, 
lineAdj , 
paraAd j ; 
MicroPoint vDiff, 

currDepth « L0NGJ4IN, 
currLineSpace, 
currParaSpace, 
maxTotalLineStretch , 
maxTotalParaStretch , 
ad j ustment „ 
lead; 

maxLineStretch* 
maxParaStretch „ 
1 ineStretchFactor , 
paraStretchFactor; 
scXRect lineRect; 
Bool vertical « false; 



n REAL 



C0LFlushTop( col ); // remove effects of vj 

if ( col->GetFlowdir() . IsVertical ( ) ) { 
vertical * true; 
currDepth « LONG MAX; 

} 

/* These handles will store arrays of structures to represent */ 
/* the optimum and the maximum spacing for each line in */ 
/* the column, and for each paragraph in the column. */ 

try { 

lineSpace = (VJSpace* )MEMAllocPtr( sizeof( VJSpace ) * growUnits ) 
paraSpace - (VJSpace* )MEMAllocPtr( sizeof( VJSpace ) * growUnits ) 



interPara » interLine » 0; 
txl » col->GetFirstline( ) ; 
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currLineSpace - 0; /» These represent the current total line */ 
currParaSpace =0; /* and para spacing before VJ »/ 

for ( ; txl; txl - LNNext ( txl ) ) { 

MicroPoint maxlead = txl->MaxLead ( spec ); 
tLine ■ txl; 

scCachedStyle& cs - scCachedStyle : :GetCachedStyle ( spec ); 

if ( paraH « NULL ) 
* 

else if ( paraH « tLine->GetPara ( ) ) { 
lead = cs.GetComputedLead ( ); 

/» Accumulate line space information for each line •/ 
InsertSpaceRecord ( lineSpace, lead, cs .GetComputedMaxLead ( ) , interLine++ ); 
currLineSpace +» lead; 

} 

else if ( paraH != tLine->GetPara ( ) ) { 

lead = scCachedStyle: :GetParaSpace( paraH, tLine->GetPara ( ) ); 
maxlead - scCachedStyle : :GetMaxParaSpace ( paraH, tL i ne -> Get Para ( ) ); 

/* Accumulate para space information for each para */ 
InsertSpaceRecord ( paraSpace, lead, maxlead, interPara++ ); 
currParaSpace +- lead; 

} 

paraH » tLine->GetPara() ; 

if ( vertical ) 

currDepth » MIN( tLine->GetOrigin ( ) .x, currDepth ); 

s>=% else 

currDepth » MAX( tLine->GetOrigin ( ) .y, currDepth ); 
/» This will tell us the •/ 
IH /» depth of the last line */ 

ru > 

%2 /* Calculate the difference between where the last line is and 

iy * where we want it to be 

ij «/ 

ffa , if ( vertical ) 

^ vDiff « -CSlastLinePosition( col->GetAPPName ( ) , spec ) + currDepth; 

2 else 

p vDiff - col->Depth() - CSlastLinePosition ( col->GetAPPName( ) , spec ) - currDepth; 

/* The greatest factors by which we can */ 

Lij /* multiply the space of each line and para »/ 

is. maxLineStretch - MaxSpaceStretch ( lineSpace, interLine ); 

maxParaStretch » MaxSpaceStretch ( paraSpace, interPara ); 

12 /* How much space this */ 

/* will buy us «/ 
maxTotalLineSt retch * TotalSpaceSt retch ( lineSpace, interLine, 

maxLineStretch ) ; 
maxTotalParaStretch - TotalSpaceStretch ( paraSpace, interPara, 

maxParaStretch ) ; 

/* How much we are currently stretching the line space */ 
/« and para space */ 

lineStretchFactor » 1; 

paraStretchFactor * 1 ; 

/* If VJ is impossible or unnecessary */ 
if ( currParaSpace < 0 

currLineSpace < 0 

( currParaSpace 0 && currLineSpace « 0 ) 
maxLineStretch < 0 
maxParaStretch < 0 
vDiff <« 0 ) 

{ 

C0LFlushTop( col ); 
return; 

} 



if ( maxTotalParaStretch >= vDiff && currParaSpace > 0 ) { 
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/* If we can do it with para spacing alone, */ 
/* do it. REAL / MicroPoint */ 
paraStretchFactor « 1 + ( (REAL)vDif f ) / currParaSpace; 

} 

else { 

if ( currParaSpace > 0 ) { 

/* Start off by stretching paragraph spacing »/ 
/* to the max. •/ 
paraStretchFactor » maxParaStretch; 
vDiff — maxTotalParaStretch; 

} 



if ( maxTotalLineStretch >°= vDiff && currLineSpace > 0 ) { 
/* If we can do remaining VJ within */ 
/* max line spacing, do it REAL / MicroPoint »/ 
lineStretchFactor = 1 + ( (REAL)vDif f ) / currLineSpace; 

} 

else { 

if ( currLineSpace > 0 ) { 

/« Stretch line spacing to the max, */ 
/» and see what's left over */ 

lineStretchFactor - maxLineStretch; 

vDiff — maxTotalLineStretch; 



if ( exceedMaxValues ) { 

if ( currParaSpace > 0 && extraPPspacing ) { 

/• If extraPPspacing were true (it isn't), «/ 
/« we would simply increase para spacing »/ 
/• to cover the excess. */ 
paraStretchFactor = 1 + ( ( (REAL)vDiff ) 

+ maxTotalParaStretch ) / currParaSpace; 

} /• (REAL + MicroPoint) / MicroPoint */ 

else { 

/» Spread remaining space evenly over all remaining 
* lines, including both inter line and inter para 
« spacing. 
*/ 

/• Some care is requires to do it evenly. */ 
Mi croPo i n t tota 1 ParaSpace 

- currParaSpace ? currParaSpace+maxTotalParaStretch : 0; 

MicroPoint totalLineSpace 

= currLineSpace ? currLineSpace+maxTotalLineStretch:0; 

MicroPoint totalSpace 

» totalParaSpace + totalLineSpace; 

MicroPoint paraDif f 

= scRoundMP( ( (REAL) total ParaSpace) / totalSpace * vDiff ) 

MicroPoint lineDiff 

« scRoundMP( ( (REAL) totalLineSpace) / totalSpace « vDiff ) 

/* REAL / MicroPoint / MicroPoint «/ 

if ( currParaSpace ) 

paraStretchFactor - 1 + ( ( (REAL) paraDif f) 

+ maxTotalParaStretch ) / currParaSpace; 
if ( currLineSpace ) 

lineStretchFactor - 1 + ( ( (REAL) lineDiff ) 

+ maxTotalLineStretch ) / currLineSpace; 
/« ( REAL + MicroPoint ) / MicroPoint «/ 

} 

} 

} 

} 



adjustment - 0; 

lineAdj ■ paraAdj » 0; 

paraH « NULL; 
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col->SetInkExtents( 0, 0, 0, 0 ); 

for ( txl = col->GetFirstline(); txl; txl - LNNext( txl ) ) { 
InParaH - txl->GetPara ( ); 

/* Shift each line down the appropriate amount */ 

if ( paraH == NULL ) 

txl->SetVJ( 0 ); 
else if ( paraH txl->GetPara() ) { 
/* Add line space */ 

adjustment +- LineShift( lineSpace, lineStretchFactor, lineAdj ) 

txl->SetVJ( adjustment ); 

lineAdj++; 

} 

else if ( paraH !« tL i ne-> Get Para ( ) ) { 
/» Add para space */ 
adjustment +■» LineShift( paraSpace, paraStretchFactor, paraAdj ) 
txl->SetVJ( adjustment ); 
paraAdj ++; 

} 

paraH « InParaH; 
txl->QueryExtents ( lineRect ); 
col->UnionInkExtents( lineRect ); 

} 

} 

catch (...){ 

MEMFreePtr( lineSpace ); 
?3 MEMFreePtr( paraSpace ); 
throw; 



} 



f\l MEMFreePtr( lineSpace ); 
* ^ MEMFreePtr ( paraSpace ) ; 



} 



I ii 



/ *. cz ei ascaeti asecSBBaBEieBDBaoiioBDaDnBOBBaBSDnanoaBnBaaBiitianenosssaeoissBsft/ 

/'^shove the lines to the top */ 

e 

static void COLFlushTop( scColumn* col ) 

for ( scTextline* txl - col->GetFirstline ( ) ; txl; txl » LKNext ( txl ) ) 
iy txl->RemoveVJ( ); 

SWSt-a BsanaBSDaaacatiaBsBDaagBasaaBDBBBBBBBBBBBeBBBBaBBaaaBaoaasnDaBeDBBff/ 

C3 

void scColumn :: Set DepthNV J ( MicroPoint dimension, 

scRedispList* redispList ) 



{ 



scXRect lineDamage; 

if ( Marked ( scINVALID ) ) 

LimitDaraage( redispList, scReformatTimeSlice ); 

if ( fFlowDir.IsHorizontal () ) 
SetDepth( dimension ); 

else 

SetWidth( dimension ); 

scRedisplayStoredLine rdl( GetLinecount ( ) ); 
rdl .SaveLineList ( this ); 
VertJustify( ); 

rdl .LineListChanges ( this, lineDamage, redispList ); 



} 



/• oaaBaaaaDaBBaaBaeaBOBaBaaaaaaBaBBaBaaBaBaaB 

/» align the text lines in the column, 
♦ this function just serves as a dispatcher 
»/ 
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void scColumn: : Vert Justify ( ) 
{ 

eVertJust attributes « GetVert Just ( ) ; 

eColShapeType colShape » GetShapeType ( ) ; 

if ( ! ( colShape eNoShape | | ( colShape & eFlexShape ) ) ) 

COLFlushTop( this ); 
else { 

switch ( attributes ) { 
case eVertJustif ied: 

if ( !GetNext() ) { 

/* If this is the stream's last column, don't VJ */ 
/* unless force VJ is set. If it isn't the last •/ 
/* column, fall through to the next case to VJ. «/ 
COLFlushTop( this ); // remove effects of vj 

break; 

} 

// let this fall thru 

case eVert Force Jus t i f y : 

COLFlushTopBottom( this ); 
break ; 

case eVertBottom: 

COLFlushBottom( this, eVJBottom ); 
break; 

case eVertCentered : 
fi COLFlushBottom( this, eVJCenter ); 

*Z break; 

Cfi default: 

f\\ case eVertTop: 

COLFlushTop( this ); 
^~ break; 

w > 

determine the number of lines in a column */ 



usSort scColumn : :GetLinecount ( ) const 

i± scTextline* txl; 

ushort lineCount; 

C3 for ( lineCount - 0, txl - GetFirstline ( ) ; txl; txl * txl->GetNext ( ) ) 
lineCount++; 
return lineCount; 

} 

/» The functions that follow are used to keep track of which lines »/ 

/* move during VJ, to minimize repainting. If any of it fails due »/ 

/» lack of memory, VJ is not jeopardized, but everything will end »/ 

/* up being repainted. •/ 



scRedisplayStoredLine: :scRedisplayStoredLine( int lines ) 

f StoredData ( 0 ) , 
fStoredLines( 0 ), 
fUsingStoredData( false ), 
fData( 0 ), 
fNumItems( 0 ) 

{ 

LineListlnit ( lines ); 



/# eaOBBOSDBDDBaOBDaBBBB 
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:obm2 
splay 



scRed i sp 1 ayS toredL i ne : : ~scRed i spTayS toredL i ne ( 
{ 

delete [] fStoredData, fStoredData » NULL; 
fStoredLines « 0; 

} 



void scRedisplayStoredLine : :LineListInit ( int lines ) 
{ 

fUsingStoredData « false; 

fData « 0; 

fNumltems « 0; 

#ifndef MWERKS_NEW_ARRAY_PROBLEM 

fStoredData « SCNEW scTextline[ lines ]; 

#else 

fStoredData « new scTextlinef lines ]; 

#endif 

fStoredLines * (short ) lines; 

} 

void scRedisplayStoredLine: :LineListFini ( ) 
{ 

_ushort i; 

C3for ( i - 0; i < fStoredLines; i++ ) 
,3 fStoredData [i ] . InitForReuse ( 0 ); 

"^delete [] fStoredData, fStoredData - NULL; 
fjj fStoredLines » 0; 

L J 

/*"4ave an image of the lines in a column to determine repainting 
*flt the completion of reformatting 

*/ 

s 

void scRedisplayStoredLine : :SaveLineL i st ( scColumn* col ) 

t h 

3 ; |ScTextline» txlCopy; 
j^scTextline* txl; 
Mushort lines; 

C3 

p lines - col->GetLinecount ( ); 

fNumltems « lines; 

fOrgExtents » col->GetInkExtents() ; 

if ( lines ) { 

. // determine if we are using the stored lines ( about 200 ) 
// or do we dynamically allocate a list - if more than 200 lines 
// - which should be almost never 

// 

if ( fStoredData && lines < fStoredLines ) { 
fUsingStoredData - true; 
fData * fStoredData; 

} 

else { 

fData » new scTextline[ lines ]; 
fUsingStoredData = false; 

} 

// copy current state to the list of lines 
txl = col->6etFirstline() ; 

for ( txlCopy « fData ; lines--; txl - LNNext ( txl ), txlCopy++ ) { 
•txlCopy « «txl; 

#if 0 

scXRect xrect; 

txl->QueryExtents ( xrect, 1 ); 



File: Vfork\CrtPrt\Stonehnd\Scco^|m2 . cpp Pg: 10 

tx 1 Copy- > Set I nkEx tents ( xrect ); 



#endif 

} 

scAssert( txl NULL ); 

} 

else 

fData - NULL; 

} 

/» BBBaBsaBaBBaBsaaBSBsaBBBBBBBaBaBaBBBaBaaBBBBaBaaeaaBBBBBOBasBaa a e«/ 

// compare the list of saved lines with the current column lines and 
// determine the repainting that needs to be done 

void scRedisplayStoredLine : :LineListChanges ( scColumn* col, 

const scXRect& oldLineDamage, 
scRedispList* redispList ) 



{ 



scTextline* txlOrg; 
scTextline* txl; 

scXRect lineDamage( oldLineDamage ); 
ushort lines - col->GetLinecount ( ) ; 

scStreamChangelnfo streamChange ; 

streamChange » gStreamChangelnfo; 

if ( fData « NULL ) { 

// redraw the entire column 
if ( redispList ) { 
Ij col->QueryMargins( fOrgExtents ); 

redispList->AddColumn( col, fOrgExtents ); 

« } 

col->Unmark( scREPAINT ); 

^} 

Qelse { 

txl « col->GetFirstline() ; 

-q 

// compare old lines and new lines and where they differ 
// mark that area to be repainted 



2 — 



3 

a x, 

U // 

*J for ( txlOrg « fData; lines && fNumltems; txl » LNNext ( txl ), txl0rg++ ) { 

i,\ lines — ; 

fNumltems — ; 

£~ if ( ! txl->Compare( txlOrg, streamChange ) ) { 

13 

f~ s // handle old line position now 

x " scXRect xrect, 

xrect 2; 

txl->QueryExtents ( xrect, 1 ); 
txlOrg->QueryExtents ( xrect2, 1 ); 
lineDamage. Union ( xrect ); 
lineDamage.Union( xrect2 ); 
txl->Unmark( scREPAINT ); 

} 

} 

// fData ran out first, mark the rest of the new lines 
for ( ; lines--; txl = LNNext ( txl ) ) { 
scXRect xrect; 

txl->QueryExtents ( xrect, 1 ); 
lineDamage .Union ( xrect ); 

} 



// current lines ran out first 
for( ; fNumltems — ; txlOrg++ ) { 
scXRect xrect; 

txlOrg->QueryExtents ( xrect, 1 ) ; 
1 i ne Damage . Un i on ( xrect ) ; 



if ( redispList ) 
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redispList->AddColumn ( col, lineDamage ) 
col->Unmark( scREPAIOT ); 



// free the list 
if ( 1 fUsingStoredData ) 
delete [] fData; 

fData » NULL; 

fNuml terns ° 0; 
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File: SCC0LUM3.C 



SHeader: /Projects/Toolbox/ct/Sccolum3 .cpp 3 5/30/97 8:45a Wmanis $ 

Contains: Contains the code to allocate lines for containers and 
other miscellaneous code. 



Written by: Man is 



Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

«•«•»*•»*««•••»**••»•••••••••••••*«•••***»••••*•»»*•*•**»•**••*•••*••••/ 



#include "scpubobj .h" 

#include "sccolumn.h" 

#include "scstcach.h" 

#include "scglobda .h" 

tfiipjude "sccallbk.h N 

#irft£jude "scmem.h" 

#ifteilude "scparagr .h" 

tfitfyglude "scregion .h" 

#ii*ciude "sctextli .h" 

#in«?lude "screfdat .h" 



/# aoBDnaDsaBnanDnaennnnoasonaooaaeaaaaoaoDeoeaeanoeai 

//.firanslate the lines 

C3 

void scColumn :: Trans lateLines( const scMuPoint& trans ) 

< c: 



IscTextline* txl; 



[Jfor ( txl - fFirstline; txl; txl = txl->GetNext ( ) ) { 
scAssert( txl ->f Origin .x + trans. x >=» 0 ); 
txl->Translate( trans ); 

} £3 



/» aaeBSBCBcotiDnnDsnooBBBinneaaaoeaaonoaaDaooeeaeaaiaannsesaaaaBiiBaanDnQD » / 

/* reposition or realign the lines in this column which is probably a 
* flex column > 
»/ 

void scColumn: :RepositionLines ( ) 
{ 

scTextline »txl; 
MicroPoint measure; 

if ( GetFlowdir() . IsHorizontal () ) 
measure « Width ( ); 

else 

measure = Depth ( ) ; 

for ( txl - fFirstline; txl; txl - txl->GetNext ( ) ) 
txl->Reposition( measure ); 

} 

// set the column as the active container in the reformatting cache 
void scCOLRefData: :SetActive( scColumn* col ) 
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{ 



} 



fCol » col; 
if ( col ) 

fPData.SetFlowDir( col->GetFlowdir ( ) ); 

else 

fPData.SetFlowDir( scFlowDir( ) ); 



/» aaceoDBCaatintiaiiBaBDneqeDaonoosoDsooaetoaoiionooooBaaBaBaooBBsnBODaoaoa * / 

// free lines marks as invalid and collect their damaged area 

void scCOLRefData : :FreeInvalidLines ( void ) 
{ 

scTextline* txl; 
scTex 1 1 i ne* nex tTx 1 ; 

for ( txl = fCol->GetFirstline() ; txl; txl » nextTxl ) { 
nextTxl « txl->GetNext ( ) ; 
if ( txl->Marked( scINVALID ) ) 
txl->Delete( fLineDamage ); 
else if ( txl->Marked( scREPAINT ) ) { 
scXRect damage; 

txl->QueryExtents ( damage, 1 ); 
f LineDamage. Union ( damage ); 
txl->Unmark( scREPAINT ); 

} 

} 

} 

Is? 

/* eTta SBSDBBHSBOBBaaaBaaDBaeBdBBsaaaaBiiBBanaDHB3HqeBDBROsrBssaoeaaBaeaBs »/ 

// & Tsbve the linelist for damage determination in formatting 

m 

vofdl scCOLRefData: :SaveLineList ( ) 
{ 'A 

'^cTextline* txl; 

|y 

^jfor ( txl = fCol->GetFirstline(); txl; txl = txl->GetNext ( ) ) { 

f 4 if ( txl->Marked( scREPAINT ) ) { 
s J scXRect xrect; 

e txl->QueryExtents( xrect, 1 ); 

£1 fLineDamage .Union ( xrect ); 

:^ txl->Marked( scREPAINT ); 

' } 

M 

g»fSavedLineState.SaveLineList ( fCol ) ; 

"C 

/# aaaBssDesBasaDaasoossanDsisBSBSoaanoaBaoooansnoBBSDOSBaBBianBDnaaiBDOsn # / 

// initialize the the data structures to perform linebreaking in a column, 
// this is primarily used for irregular run-arounds 

Bool scCOLRefData: :COLInit( scColumn» col, scContUnit* p ) 
{ 

fCol = col; 

f L i neDamage . I nva 1 i da te ( ) ; 
FreelnvalidLines ( ); 

SCDebugTrace ( 2, scString( " \t COLS tart Re format : col 0x£08x Zd\n" ), fCol, fCol->GetCount ( ) ); 
scVertex* startV; 
scContUn it* prevPara ; 
PrevParaData prevParaData ; 



prevParaData . lastLineH = NULL; 
prevParaData . 1 astSpec , cl ear ( ) ; 

// SCDebugTrace ( 2, scString( "COLStartRef ormat £d M ), col->fColumnCount ); 

if ( !fCol->DamOpen() ) 
return false; 
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o^^^.cpp 



#if SCDEBUG > 1 

if ( fCol->GetPrev() ) 

scAssert( ! fCol->GetPrev( ) ->Marked ( scLAYACTIVE ) ); 

scAssert( fCol && ! fCol~>Marked ( scLAYACTIVE ) ); 
#endif 

fCol->Mark( scLAYACTIVE ); 
ggcS.theActiveColH » fCol; 
SetActive( fCol ); 

scCachedStyle: :SetFlowdir( fCol ->GetFlowdir ( ) ); 

// set these to defaults 
fSavedPrevEnd.Set( L0NGJ4IN, FIRST_LINE_POSITION ); 

// now check to see if we are starting reformatting in the 
// middle of the column, if we are we should set the prevbaseline up 
prevPara * p->GetPrev( ) ; 
if ( prevPara ) { 

scTextline* txl « prevPara->GetLastline( ); 
if ( txl && txl->GetColumn() « fCol ) { 
scColumn* tCol « fCol; 

scLEADRefData lead; 

MicroPoint baseline ■ fSavedPrevEnd .y; 

p->LocateFirstLine( *this, p->SpecAtStart () , tCol , baseline, lead, prevParaData ); 
scAssert( tCol « fCol ); 

Cfl /« If this fails, no problem. COLLineListChanges */ 
fil /• will simply repaint ALL lines. */ 
" ^aveLineList ( ); 

l£etRegion( 0 ); 

''4 

f switch ( fCol->GetShapeType() ) { 

irf default: 

3 _ break; 

P case eFlexShape: 

%~\ case eHorzFlex: 

* if ( fCol->GetFlowdir() . IsVertical ( ) ) { 

lW scTextline* txl « fCol->GetFirstline() ; 

M if ( txl ) { 

f 3 ! MicroPoint position - txl->GetOrigin ( ) .x; 

TypeSpec ts - txl ->SpecAtS tart ( ); 

*J MicroPoint firstlinepos - CSf irstLinePosition ( fCol->GetAPPName ( ) , ts ); 



} 

} 

break ; 



scMuPoint trans ( mplnfinity - position - firstlinepos, 0 ); 
fCol->TranslateLines( trans ); 
fCol->SetWidth( mplnfinity ); 



case eVertShape: 

scCachedStyle: :GetCurrentCache() .SetRunAroundBorder ( CSrunaroundBorder( fCol->GetAPPName 
(), scCachedStyle: :GetCurrentCache() .GetSpec() ) ); 

startV - (scVertex *)MEMLockHnd ( fCol->GetVertList ( ) ); 

try { 

fRgnH - NewHRgn( scSliverSize ( ) ); 
PolyHRgn( fRgnH, startV ); 

} 

catch (...){ 

DisposeHRgn( fRgnH ), fRgnH - 0; 
MEMUnlockHnd( fCol->GetVertList ( ) ); 
throw; 

} 



MEMUnlockHnd( fCol->GetVertList ( ) ); 
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1 um3 . cpp 

w • 

cCschedStyle : : GetCurrentCache ( ) .GetRunAroun 



InsetHRgn( fRgnH, scCachedStyle : : GetCurrentCache ( ) .GetRunAroundBorder ( ) . scCachedStyle : : 
GetCurrentCache ( ) . GetRunAroundBorder ( ) , true ) ; 

fRgn = (HRgn* )MEMLockHnd ( fRgnH ); 

break; 

case eRgnShape: 

scCachedStyle: : GetCurrentCache () .SetRunAroundBorder( CSrunaroundBorder( fCol->GetAPPName 
( ) , scCachedStyle : : GetCurrentCache ( ) . GetSpec ( ) ) ) ; 

try { 

fRgnH = NewHRgn( RGNSliverSize ( fCol->GetRgn ( ) ) ); 
CopyHRgn( fRgnH, fCol->GetRgn ( ) ); 

InsetHRgn( fRgnH, scCachedStyle: -.GetCurrentCache () .GetRunAroundBorder () . scCachedSty 
le : : GetCurrentCache ( ) . GetRunAroundBorder ( ) , true ) ; 
} 

catch (...){ 

DisposeHRgn( fRgnH ), fRgnH » 0; 
throw; 

} 

fRgn - (HRgn *)MEMLockHnd ( fRgnH ); 
break; 



gData.flnitialLine.f Baseline « FIRST_LINE_POSITION; 

TPData.fComposedLine.f Baseline - FIRST_LINE_POSITION; 

%J 

Saturn true; 

} ry 

/ * gr5s £ a sBBQtiBEBso&aeeaaiiaBDSnaBBanaBoanaeBtisaDCCBmasnDnaaacBonoDsasssoon * / 

// GjLpse out the data structures when finished line breaking in a column 

voidicCOLRefData: :C0LFini ( Bool finished ) 
{ U 

sif ( fCol ) { 

l*\ scXRect extents; 

VI 



scAssert( fCol->Marked( scLAYACTIVE ) && fCol " GetActive() ); 
id fCol->Unmark( scLAYACTIVE ); 



// SCDebugTrace ( 2, scString( "COLEnd Re format %d" ). col->fColumnCount ); 

ggcS.theActiveColH = NULL; 

switch ( fCol->GetShapeType() ) { 
default: 

fCol->VertJustify( ); 
break; 

case eVertShape: 
case eRgnShape: 

fCol->VertJustify( ); 
if ( fRgnH ) { 

MEMUnlockHnd( fRgnH ); 
DisposeHRgn( fRgnH ), fRgnH - NULL; 

} 

break ; 

case eHorzFlex: 
case eFlexShape: 
case eVertFlex: 

fCol->QueryMargins( extents ); 
if ( fCol->GetFlowdir() .IsHorizontal () ) { 
if ( fCol->GetShapeType() & eVertFlex ) 

fCol->SetDepth( extents. y2 ); 
if ( fCol->GetShapeType() & eHorzFlex ) { 
fCol->SetWidth( extents. x2 ); 
fCol->RepositionLines ( ) ; 
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} 
} 

else { 

if ( fCol->GetShapeType() & eHorzFlex ) { 

scMuPoint trans ( extents .Width () - fCol->Width ( ) , 0 ); 
fCol->TranslateLines( trans ); 

fCol->SetWidth( extents .Width () ); 

} 

if ( fCol->GetShapeType() & eVertFlex ) { 
fCol->SetDepth( extents .y2 ); 
fCol->RepositionLines( ) ; 

} 

} 

f Col -> Vert Just i fy ( ) ; 
break; 

} 

fSavedLineState.LineListChanges( fCol, fLineDamage, fRedispList ); 

if ( finished ) 

fCol->Unmark( scINVALID | scREALIGN ); 

SCDebugTrace ( 2, scString( " \t COL End Re forma t : col 0x%08x 5£d\n" ), fCol, fCol->GetCount ( ) ); 



// add all lines that need to be repainted to the repaint rect 
^4cXRect& scColumn: :RepaintExtent( scXRect& repaintExtents ) 



a 
en 
ru 



?n scXRect lineEx tents; 
scTextline* txl; 



\J repaintExtents. Invalidate ( ) ; 

sj for ( txl « GetFirstlinef) ; txl; txl » txl->GetNaxt() ) { 
l~i if ( txl->Marked( scREPAIOT ) ) { 

^ txl->QueryExtents ( lineExtents, 1 ); 

C3 if ( lineExtents.Width() " 0 ) 



S 

C3 



lineExtents. x2 ■ lineExtents .xl + 1; 
repaintExtents. Union ( lineExtents ); 
txl->Marked( scREPAIOT ); 

N } 

id > 

^ Marked ( scREPAIOT ); 
C3 return repaintExtents; 

C3 

// set the column's vertical justification attribute 

void scColumn : :SetV J ( eVertJust attr ) 
{ 

if ( GetVert Just ( ) I- attr ) 

Mark( sc REALIGN ); 
SetVert Just ( attr ) ; 

} 

// this does the actual space allocation within the column 

Bool scColumn: :GetStrip2( scLINERefData& lineData, 

int breakType, 
scCOLRefData& colRefData ) 

{ 

scXRect tryRect ; 

MicroPoint tryX, 



tryY, 

colWidth « Width ( ), 
colDepth - Depth()„ 
f irstLinePosition; 
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false; 

int shapeType; 

// the specs have been properly inited so the block 
// indent values should be correct 
scAssert( this « colRefData .GetActive () ); 

// we are in an overflow condidtion 
if ( lineData.fOrg.y L0NGJ4IN ) 

return false; 
if ( breakType « eColumn Break ) 

return false; 

lineData.fColShapeType » Ge t ShapeType () ; 
shapeType * GetShapeType () ; 

// We ran into a memory error in COLStart Re format; just use rectangle shape, 
if (fRgnH && colRefData . fRgnH NULL ) 
lineData.fColShapeType » eNoShape; 

if ( lineData.IsVertical () ) { 
colWidth « Depth(); 
colDepth * Width{); 
switch ( GetShapeType ( ) ) { 
case eVertFlex: 

shapeType » eHorzFlex; 
break; 
case eHorzFlex: 

shapeType ■ eVertFlex; 
break; 

} 

\i > 

j a U colRefData.fPrevEnd * colRefData . fSavedPrevEnd; 

W switch ( shapeType ) { 
I J default: 

case eNoShape: 

lineData.fOrg.x « scCachedStyle : :GetParaStyle ( ) .GetLeftBlocklndent () ; 
lineData.fMeasure - colWidth - scCachedStyle: :GetParaStyle() .GetLeftBlocklndent () ; 
* if ( lineData.fOrg.y « FIRST_LINEJPOSITION ) 

[1 lineData.fOrg.y - CSf irstLinePosition ( GetAPPName ( ) , scCachedStyle : :GetCurrentCache ( 

GetSpec () ); 
"'^ else 

U lineData.fOrg.y +** lineData. flnitialLead. GetLead() ; 

return lineData.fOrg.y O colDepth - CSlastLinePosition( GetAPPName () , scCachedStyle : :Ge 
^tCurrentCache ( ) . GetSpec ( ) ) ; 

case eVertShape: 
case eRgnShape: 

tryRect.Set( 0, 0, MAX( scCachedStyle : :GetParaStyle () .GetMinMeasure () , colRefData . fRgn-> 
fVertlnterval ), lineData. fLogicalExtents. Depth () ); 

if ( lineData.fOrg.y « FIRST_LINE_P0SITI0N ) { 
firstLine - true; 

f irstLinePosition - CSf irstLinePosition ( GetAPPName ( ) , scCachedStyle : : GetCurrentCa 
che() . GetSpec () ) ; 

lineData.fOrg.y - colRefData . fRgn->FirstLinePos ( f irstLinePosition, lineData. fin 
itialLead .GetLead ( ) ) ; 

tryX * colRefData.fPrevEnd.x; 

tryY - lineData.fOrg.y - f irstLinePosition; 

tryRect.y2 - f irstLinePosition + CSlastLinePosition ( GetAPPName () „ scCached 

Style: :GetCurrentCache() . GetSpec () ); 

colRefData.SetFirstlinePos( lineData.fOrg.y ); 

colRefData.SetFirstSpec( scCachedStyle: :GetCurrentCache ( ) . GetSpec () ) ; 

} 

else { 

if ( lineData.fOrg.y colRefData .GetFirstl inePos ( ) ) { 
firstLine » true; 

f irstLinePosition » CSf irstLinePosition ( GetAPPName ( ) , colRefData.GetFirstSpec 

0 ); 

lineData.fOrg.y - colRefData . fRgn->FirstLinePos( f irstLinePosition, lineData 



-J 
[3 
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. f InitialLead .GetLead ( ) ) ; 

tryX « colRefData.fPrevEnd.x; 

tryY » lineData . fOrg .y - f irstLinePosition; 

tryRect ,y2 «■ f irstLinePosition + CSlastLinePosition ( GetAPPName ( ) , scCa 

chedStyle : : GetCurrentCache ( ) . Get Spec ( ) ) ; 
} 

else 

tryY « lineData.fOrg.y + lineData .fLogicalExtents.yl; 

if ( lineData. IsHorizontal ( ) ) { 

if ( colRefData.fPrevEnd.y ~ lineData .f Org .y ) 
tryX - colRefData.fPrevEnd.x; 

else 

tryX « L0NGJ4IN; 

} 

else { 

if ( ( colDepth - colRefData.fPrevEnd.x ) lineData . f Org .y ) 
tryX - colRefData.fPrevEnd.y; 

else 

tryX = LONG.MIN; 

} 

} 

colRefData.fRgn->SectRect ( tryRect, tryY, tryX, lineData . f InitialLead .GetLead ( ) ); 
if ( lineData.fOrg.y FIRST_LINE_POSITION || lineData . f Org .y colRefData .GetFirstlin 
// this is here to fix the smi bug 1538 - given that we are using approximations 



ePos() ) { 



// alot in regions this may be an insufficient fix for other issues that smi 
// may raise, but since we are using approximations i have no way of reliably 
kl // pridicting these issues 

jrn scXRect rgnXRect( colRefData . fRgn->fOrigBounds ); 

Fit scXRect tryXRect( tryRect ); 



if ( IrgnXRect -Contains ( tryXRect ) ) 
tryRect. x2 - tryRect. xl; 

} 



W if ( tryRect .Width () — 0 ) 

s return false; 

fj else { 

if ( firstLine »» true ) 

lineData.fOrg.y » tryRect. yl + f irstLinePosition; 

else 

lineData.fOrg.y « tryRect. yl - lineData. fLogicalExtents .yl; 

if ( lineData.fOrg.y > RGNMaxDepth ( colRefData. fRgnH ) ) 
lj return false; 

#if defined (LEFTBLOCKINDENT) 

if ( tryRect. x < 0 ) 

lineData . f Org ,x - tryRect. x + gfmS .GetLeftBlocklndent () ; 

else 

lineData.fOrg.x » MAX( tryRect. x, gfmS .GetLeftBlocklndent ( ) ); 



#else 

dent ( ) ; 
#endif 



lineData.fOrg.x » tryRect. xl + scCachedStyle : :GetParaStyle ( ) .GetLef tBlockln 



if ( lineData.fOrg.x 1= tryRect. xl ) 

lineData. f Measure « tryRect.Width() + ( tryRect. xl - lineData.fOrg.x ); 

else 

lineData. f Measure - tryRect .Width () ; 
return true; 

} 

break ; /*NOTREACHED*/ 
case eVertFlex: 

lineData.fOrg.x - scCachedStyle: :GetParaStyle( ) .GetLeftBlocklndent () ; 

if ( lineData.fOrg.y « F I RSTJL IMPOSITION ) 

lineData.fOrg.y - CSf irstLinePosition ( GetAPPName ( ) , scCachedStyle : : GetCurrentCache ( 
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).GetSpec() ); 

else 

lineData.fOrg.y +« lineData . f InitialLead .GetLead () ; 

lineData.fMeasure » colWidth - scCachedStyle : :GetParaStyle ( ) .GetLef tBlocklndent ( ) ; 
return lineData.fMeasure > 0; 

case eHorzFlex: 

lineData.fOrg.x « scCachedStyle: :GetParaStyle () . GetLef tBlocklndent () ; 

if ( lineData.fOrg.y FIRSTJLINEJPOSITION ) 

lineData.fOrg.y « CSf irstLinePosition ( GetAPPName ( ) , scCachedStyle: : Get CurrentCache ( 

).GetSpec() ); 

else 

lineData.fOrg.y +« lineData. f InitialLead .GetLead () ; 
lineData.fMeasure » HorzFlexMeasure; 

return lineData.fOrg.y O colDepth - CSlastLinePosition ( GetAPPName () „ scCachedStyle : :Ge 
tCurrentCache ( ) . GetSpec ( ) ) ; 

case eFlexShape: 

lineData.fOrg.K - scCachedStyle: :GetParaStyle() . GetLef tBlocklndent () ; 
if ( lineData.fOrg.y FIRST.LINE.POSITION ) 

lineData.fOrg.y = CSf irstLinePosition ( GetAPPName () , scCachedStyle : :GetCurrentCache ( 

) .GetSpec () ); 

else 

lineData.fOrg.y +» lineData. f InitialLead. GetLead () ; 

lineData.fMeasure - HorzFlexMeasure; 

return true; 

H > 

*f /«N0TREACHED*/ 
%J return false; 

H Jf^tt BnBCBQnBDBeaasitQBDBeaaDSasicsiiaaiiaaomeaassciiaDVBSDsaaDBBOBaaBsasoBoean */ 

allocate geometry using args 

Id 

JBpol scColumn: :GetStrip( scLINERefData& lineData, 
„J int breakType, 

P scCOLRefData& colRefData ) 

Bool doit; 

'"4 // since the get strip logic uses regions and can only really 

iJ // deal in one dimension we need to convert the coordinate 

s ^ // system of the used variables as we go in and out of the 

f Jl // get strip code - refer to the discussion of coordinate 

// systems in the Toolbox Concept doc 
fj if ( lineData. IsVertical() ) 

lineData. fLog ical Extents .FourthToThird ( 0 ); 

lineData.fOrg.y = lineData . f Baseline; 

doit * GetStrip2( lineData, breakType, colRefData ); 

lineData. fBaseline » lineData.fOrg.y; 

if ( lineData.IsVertical () ) { 

lineData. f Org ,ThirdToFourth( Width () ); 
lineData. fLog icalEx ten ts .ThirdToFourth ( 0 ); 

} 

return doit; 



/• EaBBOBeBaaBBBoaBaaaeBaDaBaaBBBDSBaaoBBcaaBBBBoaBaaaBBBDaaBBSBBaeaBao * / 

// allocate geeomtry using cached values 

Bool scCOLRef Data :: All ocGeometry( void ) 
{ 

Bool doit; 
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wuv . ^^^^ 

i^l^gic uses regions and can only TB^^y 



// since the get striplKgic uses regions and can only real 
// deal in one dimension we need to convert the coordinate 
// system of the used variables as we go in and out of the 
// get strip code - refer to the discussion of coordinate 
// systems in the Toolbox Concept doc 
if ( fPData.fComposedLine.IsVertical () ) { 

f PData. f ComposedLine. fLogicalExtents.FourthToThird( 0 ); 

} 

fPData.fComposedLine.fOrg.y a fPData . fComposedLine . f Base line; 

doit « fCol->GetStrip2( fPData . fComposedLine, fPData . fBreakType , *this ); 

fPData . fComposedLine . f Baseline - f PData . fComposedLine . f Org .y; 

if ( f PData. f ComposedLine. IsVert ical () ) { 

fPData . fComposedLine . f Org .ThirdToFourth ( f Col ->Width ( ) ) ; 
f PData. f ComposedLine. fLogicalExtents .ThirdToFourth ( 0 ); 

} 

return doit; 



} 



/• aaniDtaoneaoaanenDSBoasaBBnaoaaaoaatamBaaincoeaaaaaoBaaBBaaniiDDenneanoaa */ 
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File: SCCTYPE.C 



M .1 



$Header: /Projects/Toolbox/ct/SCCTYPE.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Character types. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "sccharex .h" 
#include "scctype.h" 

unsigned short sc„CharType[258] 

C3 

m 
fu 



8 .! 
fey 



P 



° { 



/* to let us use -1 as an index «/ 



'-4 

i-A 

i* 

£3 



0, 




/» 


0x00 


0 " 


» */ 


0, 




/* 


0x01 


1 " 


n «/ 


0, 




/* 


0x02 


2 " 


" «/ 


0, 




/* 


0x03 


3 " 


" */ 


0, 




/• 


0x04 


4 " 


" »/ 


0, 




/« 


0x05 


5 " 


" »/ 


0, 




/* 


0x06 


6 " 


11 */ 


sc_ASCII 


|sc_SPACE, 


/» 


0x07 


7 "indent space" */ 


0, 




/* 


0x08 


8 


*/ 


sc ASCII 


|sc SPACE, 


/« 


0x09 


9 


"\t" (HT) tab key •/ 


sc_ASCII 


|sc_SPACE, 


/» 


0x0a 


10 


"\n" (LF) line feed */ 


sc ASCII 


| sc.SPACE , 


/* 


0x0b 


11 


"\1" (VT) vertical tab */ 


0, 




/» 


0x0c 


12 




sc_ASCII 


| sc_SPACE , 


/* 


OxOd 


13 


"\r" (CR) return key*/ 


0, 




/» 


OxOe 


14 


M M m/ 


0, 




/* 


OxOf 


15 


II II #/ 


0, 




/* 


0x10 


16 


II II m/ 


0, 




/» 


0x11 


17 


II II m/ 


sc_ASCII 




/» 


0x12 


18 


"paraEnd" */ 


sc_ASCII 


|sc_SPACE, 


/* 


0x13 


19 


"quad center" */ 


sc_ASCII 


|sc_SPACE, 


/» 


0x14 


20 


"quad left" •/ 


sc^ASCII 


|sc_SPACE, 


/* 


0x15 


21 


"quad right" */ 


sc_ASCII 


| sc_SPACE , 


/• 


0x16 


22 


"quad just" */ 


sc_ASCII 


[sc_SPACE, 


/» 


0x17 


23 


" " fix abs space «/ 


sc_ASCII 


|sc_SPACE, 


/« 


0x18 


24 


" " fix rel space */ 


sc_ASCII 


|sc_SPACE, 


/* 


0x19 


25 


" " fill space */ 


sc_ASCII 




/* 


Ox la 


26 


" " no break hyphen */ 


sc^SCII 


| sc_SPACE , 


/* 


Ox lb 


27 


" M discretionary hyphen «/ 


sc_ASCII 


|sc_SPACE, 


/* 


0x1c 


28 


" " figure space «/ 


sc_ASCII 


sc_SPACE , 


/* 


Ox Id 


29 


" " thin space «/ 


sc_ASCII 


| sc„SPACE , 


/* 


Oxle 


30 


" " en space */ 


sc_ASCII 


|sc_SPACE, 


/* 


Ox If 


31 


" " em space «/ 


sc_ASCII 


|sc_SPACE, 


// 


[0020] SPACE 


sc_ASCII 


|sc PUNC, 


// 


[0021] EXCLAMATI0N_>1ARK 


sc„ASCII 


|sc_PUNC, 


// 


[0022] QU0TATI0NJ4ARK 


sc_ASCII 


| sc_SYMB0L , 


// 


[0023] NUMBER SIGN 


sc_ASCII 


j sc_SYMB0L , 


// 


[0024] DOLLAR SIGN 


sc^ASCII 


|sc_SYMB0L, 


// 


[0025] PERCEOTJ3IGN 


sc_ASCII 


|sc_SYMB0L, 


// 


[0026] AMPERSAND 


sc_ASCII 


|sc_PUNC, 


// 


[0027] APOSTROPHE 


sc _ASCII 


| sc_SYMB0L , 


// 


[0028] LEFT PARENTHESIS 


sc_ASCII 


| sc_SYMB0L , 


// 


[0029] RIGHT PARENTHESIS 


sc_ J ASCII 


|sc_SYMB0L, 


// 


[002A] ASTERISK 


sc_ASCII 


|sc SYMBOL, 


// 


[002B] PLUS SIGN 


sc__ASCII 


|sc_PUNC, 


// 


[002C] COMMA 
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sc^ASCI] 


C|sc PUNC, 


// 


[002D 


sc_ASCI] 


[|scJ?UNC, 


// 


[002E 


sc_ASCI" 


[jsc SYMBOL, 


// 


[002F 


sc_ASCI] 


[|sc DIGIT, 


// 


[0030 


sc^ASCi: 


[|sc DIGIT, 


// 


[0031 


sc_jASCi; 


[|scJ)IGIT, 


// 


[0032 


sc_ASCI] 


[(sc.DIGIT, 


// 


[0033 


sc_asci: 


[|sc_DIGIT, 


// 


[0034 


sc_ASCI] 


E|scJHGIT, 


// 


[0035 


sc^ASCI] 


[|sc_DIGIT, 


// 


[0036 


sc_ASCi: 


[|sc DIGIT, 


// 


[0037 


sc^ASCI] 


E|sc_DIGIT, 


// 


[0038 


sc_ASCi: 


[|sc_DIGIT, 


// 


[0039 


sc.ASCI] 


C jscJPUNC, 


// 


[003A 


scJVSCI] 


E|scJPUNC, 


// 


[003B 


sc_ASCi: 


E | sc_SYMBOL „ 


// 


[003C 


sc^ASCI] 


[ | sc J3YMB0L „ 


// 


[003D 


sc JV5CI] 


[jsc SYMBOL, 


// 


[003E 


sc_ASCI] 


E|sc_PUNC, 


// 


[003F 


sc^ASCI] 


[ | sc SYMBOL , 


// 


[0040 


sc_ASCI] 


[ | sc _ALPHA I sc UPCASE , 


// 


[0041 


sc_ASCI] 


[|sc^ALPHA|sc UPCASE, 


// 


[0042 


sc_ASCI] 


[|sc ALPHA I sc UPCASE, 


// 


[0043 


sc_ASCI] 


[|sc_ALPHA|sc UPCASE, 


// 


[0044 


sc_ASCI] 


[ | sc .ALPHA | sc JJPCASE , 


// 


[0045 


sc_ASCI] 


[ | sc_ALPHA t sc_UPCASE , 


// 


[0046 


sc_ASCI] 


[ | sc„ALPHA | sc_UPCASE , 


// 


[0047 


sc^ASCI] 


[ | sc_ALPHA | sc JJPCASE , 


// 


[0048 


sc.ASCI] 


E | sc.ALPHA | sc JJPCASE , 


// 


[0049 


scJ&CI] 


E | sc_ALPHA | sc JJPCASE , 


// 


[004A 


sc^ASCI] 


[ | sc_ALPHA | sc JJPCASE , 


// 


[004B 


sc_ASCI] 


E | sc^ALPHA | sc JJPCASE , 


// 


[004C 


sc_ASCI] 


[|sc ALPHA |sc UPCASE, 


// 


[004D 


sc^ASCIl 


[ | sc_ALPHA | sc JJPCASE , 


// 


[004E 


sc„ASCI] 


E|sc ALPHA |sc UPCASE, 


// 


[004F 


sc^ASCI] 


[ | sc _ALPHA | sc UPCASE , 


// 


[0050 


sc^ASCI] 


E|sc ALPHA | sc UPCASE, 


// 


[0051 


sc_ASCi: 


[|sc ALPHA |sc JJPCASE, 


// 


[0052 


sc^ASCI] 


[|sc_j&LPHA|sc UPCASE, 


// 


[0053 


sc^jASCI] 


[ | sc_ALPHA | sc UPCASE , 


// 


[0054 


sc_ASCI] 


[|sc ALPHA |sc UPCASE, 


// 


[0055 


sc.ASCIl 


[|sc ALPHA | sc JJPCASE , 


// 


[0056 


sc_ASCI] 


[ | sc„ALPHA | sc JJPCASE , 


// 


[0057 


sc_ASCIJ 


[ | sc_ALPHA | sc JJPCASE , 


// 


[0058 


scJVSCI] 


[ | sc.ALPHA ( sc JJPCASE , 


// 


[0059 


sc.ASCi: 


E j sc_ALPHA | sc JJPCASE , 


// 


[005A 


sc ^ASCI] 


[ j sc J5YMB0L , 


// 


[005B 


sc_asci: 


E j scJSYMBOL , 


// 


[005C 


sc^ASCi: 


[ |sc_SYMBOL, 


// 


[005D 


sc_ASCI] 


t j sc_SYMBOL , 


// 


[005E 


sc.ASCI] 


E | scJSYMBOL , 


// 


[005F 


sc.ASCI] 


E jscJ^CCENT, 


// 


[0060 


sc_ASCi: 


[ |sc_ALPHA|sc LOCASE, 


// 


[0061 


sc^ASCI] 


[|sc_ALPHA|sc LOCASE, 


// 


[0062 


sc_ASCI3 


[ | sc JULPHA I sc J-OCASE , 


// 


[0063 


sc_ASCI] 


E | sc.ALPHA j sc_LOCASE , 


// 


[0064 


sc_ASCI] 


E | sc_ALPHA | sc JIOCASE , 


// 


[0065 


sc_ASCIl 


[ j sc_ALPHA | sc J-OCASE , 


// 


[0066 


sc_ASCI] 


E j sc_ALPHA | sc_LOCASE , 


// 


[0067 


sc_ASCI] 


C j sc_ALPHA | sc^LOCASE , 


// 


[0068 


sc_ASCI] 


E | sc_ALPHA | sc_LOCASE , 


// 


[0069 


sc_ASCI] 


E j sc_ALPHA | sc.LOCASE , 


// 


[006A 


sc.ASCi: 


C | sc_ALPHA | sc J-OCASE , 


// 


[006B 


sc_ASCi: 


E | sc__ALPHA | sc JLOCASE , 


// 


[006C 


sc_ASCI] 


E | sc_ALPHA | sc_L0CASE , 


// 


[006D 


sc_ASCIl 


[|sc JVLPHA|sc_LOCASE, 


// 


[006E 


sc_ASCI] 


E j sc_ALPHA | sc_LOCASE , 


// 


[006F 


sc_ASCI] 


C j sc.ALPHA | sc„L0CASE , 


// 


[0070 


sc^ASCI] 


; | sc_ALPHA j scJLOCASE , 


// 


[0071 


sc^ASCI] 


E|sc ALPHA jsc LOCASE, 


// 


[0072 


sc^ASCi: 


E | sc.ALPHA | sc_L0CASE , 


// 


[0073 


sc^ASCI] 


[jsc ALPHA jsc LOCASE, 


// 


[0074 


sc_ASCI3 


E | sc_ALPHA | sc JLOCASE , 


// 


[0075 



HYPHEN-MINUS 

FULL.STOP 

SOLIDUS 

DIGIT_2ERO 

DIGHJONE 

DIGITJIWO 

DIGITJCHREE 

DIGIT_FOUR 

DIGHJFIVE 

DIGIT„SIX 

DIGIT_SEVEN 

DIGIT.EIGHT 

DIGITJUNE 

COLON 

SEMICOLON 

LESS-THANJ3IGN 

EQUALS_SIGN 

GREATER -THAN_SIGN 

QUESTION-MARK 

COMMERCIAL^ 

LATIN.CAPITAL„LETTER_A 

L ATI N_CAP I TAL_L ETTE R_B 

L AT I N_C AP I TAL_L ETTE R_C 

LATIN.CAP ITALJLETTEJLD 

LATIN„CAP I TAL_L ETTE R_E 

LATIN.CAP ITAL_LETTER_F 

LATIN.CAP ITAL_LETTER_G 

LATIN_CAP I TAL_L ETTE R_H 

LATIN .CAP ITAL_LETTER_I 

LATIN.CAPITAL.LETTEFLJ 

LATIN_CAP ITAL_LETTER_K 

LATIN_CAP ITAL JLETTERJL 

LATIN_CAP ITAL_LETTER J4 

LATIN_CAP ITAL JLETTERJJ 

LATIN_CAP ITAL_LETTER_0 

LATIN_CAP ITAL_LETTER.P 

LATIN_CAP ITAL_LETTER_Q 

LATIN_CAPITAL_LETTER_R 

LAT I N_C AP I TAL_L ETTE R_S 

LATIN_CAP ITAL_LETTER_T 

LATIN_CAP ITAL_LETTER_U 

LATIN_CAPITAL_LETTER_V 

LATIN.CAPITAL.LETTER.W 

LATIN_CAPITAL__LETTERJC 

LAT I N_C AP I TAL__L ETTE R_Y 

LATIN_CAP ITAL_LETTER_Z 

LEFT_SQUARE__B RACKET 

REVERSE_SOLIDUS 

RI CMT_SQUARE_BRACKET 

CIRCUMFLEX-ACCENT 

LOW_LINE 

GRAVE_AC CENT 

LATI N_SMAL L„L ETTER^A 

LATIN_SMALL.LETTER_B 

LATIN_SMALL_LETTER_C 

LAT I N_SMAL L_L ETTE R_D 

LATIN_SMALL LETTER_E 

LATIN_SMALL_LETTER_F 

LATIN„SMALL_LETTER_G 

LAT I N_ SMAL L__L ETTER.H 

LATIN_SMALL„LETTER_I 
LATIN_SMALL_LETTER_J 
LATI N_SMAL L_LETTER_K 
LAT I N_SMAL L_L ETTER_L 
LAT I N_SMAL L_L ETTE R_M 
LATIN„SMALL_LETTER.N 
LATIN_SMALL_LETTER_0 
LATIN_SMALL_LETTER^P 
LATIN_SMALL_LETTER_Q 

LATIN_SMALL_LETTEFLR 
LAT I N_SMAL L_L ETTE R_S 
LAT I N_SMAL L_L ETTE R_T 
LATIN_SMALL_LETTER_U 
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sc^ASCII 
sc_ASCII 
sc_ASCII 
sc„ASCII 
sc_ASCII 
sc_ASCII 
sc_ASCII 
sc^ASCII 
sc ASCII 



|sc_ALPHA|sc_LOC 
| sc _ALPHA | sc_LOCASE , 
| sc_ALPHA | sc_LOCASE , 
| sc_ALPHA | sc_LOCASE , 
| sc_ALPHA | sc.LOCASE , 
| sc.SYMBOL , 
|sc_SYMBOL„ 
|sc_SYMB0L, 
jsc_SYMBOL, 



// [0076] 
// [0077] 
// [0078] 
[0079] 
[007A] 
// [007B] 
// [007C] 
// [007D] 
// [007E] 



Pg: 3 



LATIN_SMALL_LETfER_V 
LATIN SMAL L_L ETTE RJtf 
LATIN_SMALL_LETTER_X 
LATIN_SMALL_LETTER_Y 
LATIN_SMALL_LETTER_Z 
LEFT_CURLY_BRACKET 
VERTI CAL_L INE 
R I GHT_CURL Y_B RAC RET 
TILDE 





0, 


// 


0x7f 3 


L27 




0, 


// 


0x80 3 


L28 




0, 


// 


0x81 1 


L29 




0, 


// 


0x82 3 


L30 




0. 


// 


0x83 3 


L31 




0, 


// 


0x84 3 


L32 




0, 


// 


0x85 3 


L33 




0, 


// 


0x86 3 


.34 




0, 


// 


0x87 3 


L35 




0, 


// 


0x88 3 


.36 




0, 


// 


0x89 3 


.37 




0, 


// 


0x8a 3 


L38 




0, 


// 


0x8b 3 


.39 




0, 


// 


0x8c 3 


l40 




0, 


// 


0x8d 3 


L41 




0, 


// 


0x8e 1 


.42 




0, 


// 


0x8f 3 


L43 




0, 


// 


0x90 3 


.44 




0, 


// 


0x91 3 


.45 


E. — i 


0, 


// 




4b 




0. 


// 


0x93 3 


.47 




0, 


// 


0x94 3 


l48 


Us 


0, 


// 


0x95 I 


L49 


s Li 


0, 


// 


0x96 3 


.50 




0, 


// 


0x97 3 


LSI 


•s s? 


0, 


// 


0x98 3 


.52 


w 


0, 


// 


0x99 3 


.53 




0, 


// 


Ox 9a 3 


L54 


f ~i 


0. 


// 


Ox 9b 3 


.55 




0, 


// 


Ox 9c 3 


l56 


5 


0, 


// 


0x9d 3 


L57 


CD 


0, 


// 


0x9e 3 


.58 




0, 


// 


0x9f 3 


L59 


5 : 3 


sc SPACE , 


// 


[00A0] 


NO-BREA£__SPACE 




sc_SYMBOL, 


// 


[00A1] 


INVERTED.EXCLAMATI 0NJ4ARR 


t J 


sc_SYMBOL„ 


// 


[00A2] 


CENT„SIGN 


1? =3 


sc^SYMBOL , 


// 


[0OA3] 


POUND_SIGN 


£3 


sc_SYMBOL , 


// 


[00A4] 


CURRENCY.SIGN 




sc_SYMBOL , 


// 


[0OA5] 


YENJ3IGN 




sc_SYMBOL , 


// 


[0OA6] 


BROREN_BAR 




sc.SYMBOL, 


// 


[00A7] 


SECTION_SIGN 




sc_SYMBOL, 


// 


[00A8] 


DIAERESIS 




sc_SYMBOL, 


// 


[00A9] 


COPYRIGHT_SIGN 




sc_SYMBOL , 


// 


[OOAA] 


FEM I NINE_0 RD INAL__ I ND I CATOR 




sc_SYMBOL, 


// 


[OOAB] 


L EFT-P 0 INTINGJDOUBLE_ANGL E_QUOTAT I ON_>IARR 




sc.SYMBOL, 


// 


[OOACl 


NOT.SICaJ 




scJSYMBOL, 


// 


[OOAD] 


SOFT_HYPHEN 




sc.SYMBOL , 


// 


[OOAE] 


REGISTE RE DESIGN 




sc — SYMBOL „ 


// 


[OOAF] 


MACRON 




sc_SYMB0L, 


// 


[00B0] 


DEGREE.SIGN 




sc_SYMBOL , 


// 


[00B1] 


PLUS -MINUS SIGN 




sc_SYMBOL „ 


// 


[00B2] 


SUPERSCRIPT im 




sc_SYMBOL, 


// 


[00B3] 


SUPERSCRI PT„THREE 




sc_SYMBOL , 


// 


[00B4] 


ACUTE_ACCENT 




sc_SYMBOL „ 


// 


[00B5] 


MICRO SIGN 




sc_SYMBOL , 


// 


[00B6] 


PILCROW SIGN 




sc_SYMBOL, 


// 


[00B7] 


MIDDLE JOT 




sc_SYMBOL. 


// 


[00B8] 


CEDILLA 




sc_S¥MBOL, 


// 


[00B9] 


SUPERSCRIPT ONE 




sc_SYMBOL, 


// 


[OOBA] 


MASCULINE ORDINAL INDICATOR 




sc_SYMBOL, 


// 


[OOBB] 


RIGOT-POINTING_DOUBLEJtfJGLE QUOTATIONJiARR 




sc_SYMBOL , 


// 


[OOBC] 


VUL GAR..F RACT I ON_ONE QUARTER 
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u 



ELii 

C3 



sc.SYMBOL, ^ 


W // 


[OOBD 


sc_SYMBOL, 


// 


[OOBE 


sc_SYMBOL „ 


// 


[OOBF 


sc ALPHA | scJJPCASE , 


// 


[00C0 


sc_ALPHA | scJJPCASE , 


// 


[00C1 


sc_ALPHA|sc UPC AS E, 


// 


[00C2 


sc ALPHA | sc UPCASE, 


// 


[00C3 


sc ALPHA] sc UPCASE, 


// 


[00C4 


sc_ALPHAisc UPCASE. 


// 


[00C5 


sc ALPHA |sc UPCASE, 


// 


[0OC6 


sc_ALPHA|sc UPCASE, 


// 


[00C7 


sc_ALPHA | scJJPCASE , 


// 


[00C8 


sc_ALPHA | scJJPCASE , 


// 


[00C9 


sc ALPHA | sc UPCASE, 


// 


[OOCA 


sc_ALPHA | sc_UPCASE , 


// 


[OOCB 


sc_ALPHA | scJJPCASE . 


// 


[OOCC 


sc_ALPHA| scJJPCASE „ 


// 


[OOCD 


sc_ALPHA | scJJPCASE , 


// 


[OOCE 


sc_ALPHA | scJJPCASE , 


// 


[OOCF 


sc_ALPHA | scJJPCASE , 


// 


[00D0 


sc_ALPHA | scJJPCASE , 


// 


[00D1 


sc_ALPHA| scJJPCASE, 


// 


[00D2 


SCJU-PHA | scJJPCASE , 


// 


r nnm 
[00D3 


sc_ALPHA | scJJPCASE , 


// 


[00D4 


SC_ALPnA | SC JJFCA5E , 


/ / 


r n nric 
[OuDb 


sc_ALPHA | scJJPCASE , 


// 


[00D6 


sc_SYMB0L , 


// 


[00D7 


sc _ALPHA|sc UPCASE, 


// 


[00D8 


sc_ALPHA|sc UPCASE, 


// 


[00D9 


sc_ALPHA | scJJPCASE „ 


// 


[OODA 


sc_ALPHA|SC UPCASE, 


// 


r nnno 

[OODd 


sc_ALPHA | scJJPCASE , 


// 


[OODC 


SC_ALPnA | SC^JJrQASt , 




[ UuDD 


sc_ALPHA t scJJPCASE , 


// 


[OODE 


sc _ALPHA | sc_LOCASE , 


// 


[OODF 


sc_ALPHA | sc J.OCASE , 


// 


[00E0 


sc_ALPHA | sc_LOCASE , 


// 


[00E1 


sc_ALPHA | sc J-OCASE , 


// 


[00E2 


sc_ALPHA | sc J.OCASE , 


// 


[00E3 


sc_ALPHA | sc J.OCASE , 


// 


[00E4 


sc_ALPHA | sc J.OCASE , 


// 


[00E5 


sc_ALPHA j sc_LOCASE , 


// 


[00E6 


sc_ALPHA j sc_LOCASE , 


// 


[0OE7 


sc _ALPHA|scJ.OCASE, 


// 


[00E8 


sc_ALPHA | sc_LOCASE , 


// 


[00E9 


sc_ALPHA | sc J.0CASE , 


// 


[OOEA 


sc_ALPHA | sc_LOCASE , 


// 


[OOEB 


sc_ALPHA | sc JIOCASE , 


// 


[OOEC 


sc_ALPHA j sc_LOCASE , 


// 


[OOED 


sc_ALPHA j sc_L0CASE , 


// 


[OOEE 


sc_ALPHA | sc J10CASE , 


// 


[OOEF 


sc_ALPHA | sc J-OCASE , 


// 


[00F0 


sc_ALPHA j sc_LOCASE , 


// 


[00F1 


sc _ALPHA|sc_LOCASE, 


// 


[00F2 


SC_ALPHA j SC_LOCASE , 


// 


[UUF 3 


sc_ALPHA | sc J10CASE , 


// 


[00F4 


SC_ALrnA| SC_L0CA5E , 


// 


r n nt?e 

[uurb 


sc_ALPHA j sc_LOCASE , 


// 


[00F6 


sc_SYMBOL, 


// 


[00F7 


sc_ALPHA|sc LOCASE, 


// 


[00F8 


sc_ALPHA|sc LOCASE, 


// 


[00F9 


sc ALPHA |ec LOCASE, 


// 


[OOFA 


sc_ALPHA|sc LOCASE, 


// 


[OOFB 


sc_ALPHA|sc LOCASE, 


// 


[OOFC 


sc_ALPHA|sc LQCASE, 


// 


[OOFD 


sc ALPHA I sc LOCASE, 


// 


[OOFE 



E^^F 
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VULGAR_FRACTIONJ)NE_HALF 
VULGAR.FRACTION„THREE_QUAKTERS 
INVERTED^QUESTI ON.MARK 

LATIN.CAP ITAL_LETTER_A_WITH_GRAVE 
L AT I N_C AP I TAL_L ETTE R_A_W I TH_ACUTE 
LATIN.CAPITAL LETTER^A_WITH_CIRCUMFLEX 
LATIKLCAPITAL LETTERJL.WI1H_TILDE 
LATIN.CAPITAL LETTER_A_WITH_D IAERES I S 
LATIN CAP ITAL_LETTER A WITH_RIHG_ABOVE 
LATIN_CAP ITAL.L I GATURE.AE 
LATIN_CAPITAL_LETTER_C_WITH_CEDILLA 
LAT I N_C AP I TAL_L ETTE R_E_W I TH_GRAVE 
LATIN.CAPITAL_LETTEFLE.WIIH_ACLrTE 
LATIKf.CAP ITAL_LETTER.E JWITH.C I RCUMFLEX 
LATIN_CAPITAL_LETTER_E_WITH_D IAERES IS 
LAT I N_C AP I TAL_L ETTE R_ I _W I TH_GRAVE 
LATIN.CAP ITAL_LETTER_I _W ITH_ACUTE 
LATIN_CAP ITAL_LETTEFLI..WIT>LC I RCUMFLEX 
LATIN_CAP ITAL_LETTE R_I _W I TH_D IAERES I S 
LATIN_CAPITAL_LETTER„ETH. ( Icelandic ) 
LATIN_CAPITAL.LETTER_U?„WITH_TI LDE 
LATIN_CAP I TAL J.ETTE R_0_WI TH_GRAVE 
LAT I N_C AP I TAL_LETTE R_0_W I TH_ACUTE 
LATIN_CAP ITAL_LETTER_0_WITH_C I RCUMFLEX 
LATIN.CAP ITAL_LETTER_0_WITH_TI LDE 
LAT I N_CAP I TAL_LETTE R_0_WI TH_D IAERES I S 

MULTIPL I CATI ON_SIC»J 

LATIN_CAP ITAL_ LETTER 0_WITH_STROKE 
LATIN_CAP ITAL.LETTER„U_WITH_GRAVE 
LATIN_CAP I TAL_ L ETTE R_U_W I TH_ ACUTE 
LATIKf^CAP I TAL_L ETTE R JJ_W ITH_C I RCUMFLEX 
LATIKLCAP ITAL_LETTER.U_WITH„D IAERES I S 
LATIN_CAPITAL_LETTER_y_WIIK.ACUTE 
LAT I N_C AP I TAL_L ETTE R_THO RN_ (Icelandic) 

LATIN„SMALL_LETTER_SHARP_S_ (German ) 

LAT I KLSMAL L_L ETTE R_A_W I TH_GRAVE 
LATIN.SMALL LETTER.A WITH_ACUTE 
LATIN SMALL LETTER _A_WITH_C I RCUMFLEX 
LATIN SMALL LETTER_A_WITH_TILDE 
LATIN.SMALL LETTER^A WITH DIAERESIS 
LATIN.SMALL_LETTER_A u .WITH_RING_ABOVE 
LATIN_SMALL_L I GATURE_AE 
LATIN.SMALL_LETTER_C_WI-nL.CED I LLA 
LAT I N_SMAL L_L ETTE R_E_W I TH_GRAVE 
LATIN_SMALL_LETTER_E_WITTL.ACUTE 
LATIN_SMALL_LETTER_E_WITH_C I RCUMFLEX 
LATIN_SMALL_LETTER_E_WITH_DIAERESIS 
LATIN_SMALL_LETTER_I_WITK-GRAVE 
LATIN_SMALL_LETTER_I_WITH_ACUTE 
LATIN_SMALL_LETTER_I_WITH_C I RCUMFLEX 
LATIN_SMALL_LETTER_I_WITHLD IAERES I S 
LATIN_SMALL_LETTER_ETH_ (Icelandic) 
LATIN_SMALL_LETTERJJ_WITH_TILDE 
LATIN_SMALL_LETTER_0_WITH_GRAVE 
!^TIN_SMALL_LETTER_0_WITH_ACUTE 
LATIN_SMALL_LETTER_0_WITH_C I RCUMFLEX 
LATIN_SMALL_LETTER 0_WITH_TILDE 
LATIN_SMALL_LETTER_0_WITH_D IAERES I S 

DIVISION_SIGN 

LATIN_SMALL_LETTER_0_WITH_STRORE 
LATIN_SMALL_LETTER_U_WITH_GRAVE 
LAT I N_ SMAL L_ L ETTE R_U_W I TH_ ACUTE 
LATIN_SMALL_LETTER U_WITH_C I RCUMFLEX 
LATIN_SMALL_LETTERJJ_WITHJ)IAERESIS 
LATI N_SMAL L_L ETTE R_Y WITH J^CUTE 
LATIN_SMALL LETTER THORN (Icelandic) 
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/* 



File: SCCSPECL.C 



m 



$Header: /Projects/Too lbox/ct/SCCSPECL .CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Maintains typespec list. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scpubobj .h" 

/ * DsdBBaBBaBSBBBaeaBSBBnasBBaaBBasBanBsaaaasaaaBsaanBBBaBBeoaaB&anBaBt 

void scTypeSpecList : : Insert ( TypeSpecS. ts ) 

z for ( int i « 0; i < Numltems(); i++ ) { 
\i if ( ts.ptr() — (*this) [i] .ptr() ) 

ill return; 

ru > 

^ Append ( ts ) ; 

H 

w 

SBaBBBBBBBBBaesasBBBSBaBaBaDBaaBaBBBBBBBBBattaaasBsaBBBaaBBBBBBBBBBai 

lelteyRecord : : scKeyRecord ( ) : 

5 t,ype_( insert ), 

J 3 fKeyCodef 0 ), 

*~s fReplacedChar( 0 

^ field_( 0 ), 

It J replaced field_ ( 0 )„ 

i& fEscapement( 0 ), 

fSpec( 0 )„ 
« fNo0p( 0 ), 
t3 fRestoreSelect( 0 ) 
{ 
} 

/* BBaBBBSBDaBaaBBaaosaBaaBaaaaaBaaaBaBsaaaDBaBaeaBBBBSBaaBaBaBBaBBaBaE 

scKeyRecord : : scKeyRecord ( const scKeyRecordfic rec ) 
{ 

type_ a rec,type„; 

fKeyCode - rec . f ReyCode ; 

field_ - rec.field_; 

fReplacedChar - rec . fReplacedChar; 

replacedfield_ - rec .replacedf ield_; 

f Escapement « rec . f Escapement ; 

fSpec - reef Spec; 

fNoOp - rec.ftfoOp; 

fRestoreSelect « rec . f RestoreSelect ; 

fMark - reef Mark; 



/* BaBBBBBaBBaaaBBBasBaBasaBBaaBaaaBBBfflBBBBBaBBaaaaBBBBBBBBaai 

scKeyRecord^ scKeyRecord :: operator =( const scKeyRecordSc rec ) 
{ 

type_ ° rec.type_; 
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fKeyCode 
field. 

fReplacedChar 

replacedf ield_ 

fEscapement 

fSpec 

fNoOp 

fRestoreSelect 
fMark 



- rec.fK^Kde; 

= rec.field_; 

* rec . fReplacedChar; 

■ rec .replacedf ield_; 

* rec . fEscapement ; 
« reef Spec; 

« rec.fbJoOp; 

* rec . fRestoreSelect ; 

■ rec. fMark; 



return *this; 



scKeyRecord : : "scKeyRecord ( ) 

{ 

} 



void scKeyRecord : : Invert ( ) 



3E * »/ 



{ 



UCS2 tmpChar » fReplacedChar; 
fReplacedChar « fKeyCode; 
fKeyCode « tmpChar; 



uint8 tmpfield - replacedf ield_; 
replacedf ield_ « field_; 
fn field_ » tmpfield; 



Pi! 



SDsnattsansnstoBiao: 



s^e^treamLocationSc scStreamLocation : :operator= ( const scStreamLocation& si ) 



C3 



C3 

v i 



fStream 




sl 


. f Stream ; 


fAPPColumn 




si. 


. fAPPColumn; 


fParaNum 




sl, 


. fParaNum; 


fParaOffset 


n 


sl, 


.fParaOffset; 


fEndOfLine 




sl < fEndOfLine; 


fTheCh 


a 


sl, 


. fTheCh ; 


f Flags 




sl, 


.f Flags; 


fUnitType 


n 


sl, 


.fUnitType; 


fTheChWidth 




sl, 


.fTheChWidth; 


fChSpec 




sl, 


.fChSpec; 


fParaSpec 


ot 


sl, 


. f ParaSpec ; 


fPosOnLine 


es 


sl, 


. fPosOnLine; 


fSelMaxX 


at 


sl , 


.fSelMaxX; 


fFont 


ts 


sl 


.fFont; 


fPointSize 


a 


sl, 


.fPointSize; 


f Baseline 


o 


sl, 


. f Baseline; 


fMeasure 


cs 


sl , 


. fMeasure ; 


f LetterSpace 




sl. 


. f LetterSpace 


fWord Space 


a 


sl, 


. fWordSpace; 


return *this; 









asBBseenBassasaeBaBS 



scStreamLocation: :scStreamLocation( const scStreamLocation& sl ) 
fStream( sl.fStream ) , 
fAPPColumn ( sl . fAPPColumn ) , 
fParaNum( sl.fParaNum ), 
fParaOffset( sl . f ParaOf f set ) , 
fEndOfLine ( sl . fEndOfLine ), 
fTheCh ( sl. fTheCh ) „ 
f Flags ( sl.f Flags ), 
fUnitType ( sl , fUnitType ) , 
fTheChWidth ( sl .fTheChWidth ), 
fChSpec( sl.fChSpec ), 
f ParaSpec ( sl . f ParaSpec ) , 
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n^l^ 



fPosOnLine( si . fPosOnLiril 
fSelMaxX( sl.fSelMaxX ), 
fFont( si. f Font ), 
fPointSize( si . fPointSize ), 
f Basel in© ( si .f Baseline ), 
fMeasure( sl.fMeasure ), 
f LetterSpace ( si . f LetterSpace ) , 
fWordSpace( si . fWordSpace ) 



/» aeigniictaantiBaBeaiaaaeiaaflaBSBnotiiaaesiBDDnBngioaBanooonBOBBnDoonciiiioaaaeoo » / 

scStreamLocation: rscStreamLocation ( ) : 

f Stream ( 0 ) , 

fAPPColumn( 0 ), 

fParaNum( 0 ), 

fParaOffset( 0 ), 

fEndOfLine( 0 ), 

fTheCh( 0 ), 

f Flags ( 0 ), 

fUnitType( eNoUnit ) , 

fTheChWidth( 0 ), 

fChSpec( 0 

f ParaSpec ( 0 ) „ 

fPosOnLine( 0 ), 

fSelMaxX( 0 ), 

fFont( 0 ), 

fPointSize( 0 )„ 
£=j fBaseline( 0 ) , 

f Measure ( 0 ) , 
^ f LetterSpace ( 0 ), 
in fWordSpace ( 0 ) 

i BaBSDBBBaaasaaseaBSBaaDaBaBsaBaaaBsaaBOBaB&aaeaeBnBaBBnBnaBaBaaBBSOB * / 

d scStreamLocation :: Init ( ) 



f Stream » 0; 

fAPPColuran = 0; 

fParaNum = 0; 

fParaOffset = 0; 

ly fEndOfLine - 0; 

fTheCh - 0; 

fFlags ~ 0; 

*z fUnitType * eNoUnit; 

U fTheChWidth » 0; 
fChSpec. clear () ; 
fParaSpec. clear () ; 

fPosOnLine * 0; 

fSelMaxX - 0; 

fFont <= 0; 

fPointSize • 0; 

f Baseline » 0; 

f Measure « 0; 

f LetterSpace • 0; 

fWordSpace = 0; 

} 

/» BBBBaBBBaBaBCBBSBaoBasBBBBBOBBBaaBaaBBBBBaaaaaBBaaBaBBBBBBBBaBsaaBae */ 

#if SCDEBUG > 1 

void scSpecLocList : :DbgPrint ( void ) const 
{ 

SCDebugTrace ( 0. scString( M \nSCSPECLOCLIST\n n ) ); 
for ( int i « 0; i < Numltems(); i++ ) { 

SCDebugTrace ( 0, scString( "vtscCharSpecLoc ( Zd Zd ) 0x/Z08x\n" ), 

(•this) [i] .offset () . fParaOf fset , 

(•this) [i] .offset () . fCharOf fset , 

(•this) [i] .spec() ); 

} 
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SCDebugTrace ( 0, scStrin3^BP5CSPECLOCLIST\n M ) ); 

} 

#endif 

/* BBBBassBaBBBBBBBBaBaaBaaBBBSBanaBanaBsiaanaBaBBaBaBnascaBtBsBaBBBBBBaiaa * / 

TypeSpec scSpecLocList : :GetLastValidSpec ( void ) const 
{ 

for ( int i » Ntunltems() - 1; i >■ 0; i — ) { 
if ( (»this) [i] .spec() ,ptr() ) 
return (*this) [i] .spec() ; 

} 

return 0; 

} 



TypeSpec scSpecLocList : :GetFirstValidSpec( void ) const 
{ 

for ( int i » 0; i < Numltems() ; i++ ) { 
if ( (»this) [i] .spec() .ptr() ) 
return (*this) [i ] .spec ( ) ; 

} 

return 0; 

} 

/# BBBaBBBCBBBBBBBSBBBBSSBSBBBBBBBBBBBBBBBBBaBBBBBBBaBBBBBBBSBBBBBBBaBB * / 

TypeSpec scSpecLocList : :GetNthValidSpec ( int nth ) const 

{f3 

*z for ( int i ■ 0; i < Numltems ( ) ; i++ ) { 

*f if ( («this) [i] .spec() .ptr() && —nth « 0 ) 

CH return (*this) [i ] .spec ( ) ; 

ry > 

" ^ return 0; 

/» jaatiaeBooeooeaDanaBnstEabaBDentisBiOBecosasBeeBoavaoattBiiacaedDaaeDiiaBOBn */ 



C3 

a 
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sc_ALPHA|sc_LOCASE, // [OOFF] LAT I N_SMAL L_L ETTE R_Y_W ITH_D I AE RE S I S 

0 



}; 



/* BaaBBaBBBBaaBBSBaaBBBsaaaBBBaaBaBBaBaBaBaaBBBaBBSEBBaaaaaaaaawaaBBBB */ 

static UCS2 CTChangeCase ( UCS2 ); 

/* masaaaaaaBaaaaaBaaaaaraaiaaaaaaaaaaaaBaaaBasaaaaaBBaaaaaaaaaBanasaaaaB */ 

/* return the lower case of a character »/ 

UCS2 CIToLower( UCS2 ch ) 
{ 

register ushort test; 

if ( ch < 256 ) { 

test » sc__CharType[ch+l] ; 
if { test & sc_UPCASE ) { 
if ( ch I- OxDF ) 

return (UCS2) (ch + 0x20); 

} 

} 

else 

; /• case may not be significant •/ 



return ch; 



aaaaaeaaaaaaaaaBaBBBBBBttBsaBaBaBBaBaaaEsaaBaBaaaaaBaBBaaBBBaBaaaaaBBS »/ 

m 

CTToUpper( register UCS2 ch ) 
,! ~ register ushort test; 

ly 

if ( ch < 256 ) { 

test » sc_CharType[ch+l] ; 
-~ if ( test & sc_L0CASE ) { 

s if ( ch I- OxFF ) 

Q return (UCS2) (ch - 0x20); 

*J > 

;1 > 
^ else 

; /» case may not be significant */ 
22 return ch; 

P 

/* aaaaaaaBaaBaBBBceaBBaaaaaaaaBaaaaaaaaasBaaBaBBaBBBBaBBaaaaBBBaaaBBBBB */ 

UCS2 CTToggleCase( register UCS2 ch ) 
{ 

register ushort test; 

if ( ch < 256 ) { 

test « sc_CharType [ch+ 1 ] ; 
if ( test & sc„L0CASE ) { 
if ( ch !- OxFF ) 

return (UCS2)(ch - 0x20); 

} 

else if ( test & sc_UPCASE ) { 
if ( ch I- OxDF ) 

return (UCS2) (ch + 0x20); 

} 

} 

else 

; /» case may not be significant */ 



return ch; 

} 
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/* DnoononooaaoBooaamoeBBan o^^^^^t anarnoaaaosoaaasaeaonoanBoaaaBBOiinaBanB * / 

/* determines whether or not to store just the character and its flags or 
* the character, its flags and its escapement 
*/ 

Bool CTStoreAll( UCS2 ch ) 
{ 

switch ( ch ) { 
default: 

return false; 
case scFixAbsSpace: 
case scF ixRel Space : 

return true; 

} 

} 

/# BaaaaaaflaneBBaBaBaoBanaaaaaBBoeaBanaaBaasoBaBooaaBanooaaBaaeBaBBeBBB » / 



C3 



Ld 

M 

£3 
£3 
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/•••«••*•••••••••••••••••«• jl^ 

File: SCCOLUMN. H 



SHeader: /Pro jects/Tool box /ct /SCCOLUMN.H 2 5/30/97 8:45a Wmanis $ 
Contains: text container definitions 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc.. of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

#ifndef _H_SCC0LUMN 
^define _H_SCC0LUMN 

#include "sctbobj.h" 



j/tykz siSBBaBBaasnnsavcnanaBeaseaBeosonaDsnosaaosoBBittiiiBasDisosmaeeaSBBaaaac * / 
j/z&J- anncaaeBBaesEssaBsmnotiasBtsiRnssaannsssoesaDoaesaiiaaansnesasasiasneiSBEnn */ 
SBSBBBBBOBaesasnBasBBaBBaaaBCBBaasDBeBBBriBeBseBSsaasDaBDseBBBaqasaBa * / 

dl^tss scRedispList; 
c&Jss scSelection; 
cslass TextMarker; 
clfcss scImmediateRedisp; 
cl%ss stText Import Export ; 
cf£ss scLINERefData; 
cjass scCOLRefData; 
class scXRect; 
clttss scRedispList; 
diss scTypeSpecList; 
c|§ss scLinelnfoList; 
c|$ss scSpecLocList; 
/*"THE COLUMN OBJECT «/ 

C3 

c|ass scColumn : public scTBObj { 
scDECLARE_RTTI ; 

friend class scCOLRefData; 

public : 

scColumn ( APPColumn, 
MicroPoint, 
MicroPoint, 
scStream* p » 0, 

eCommonFlow flow * eRomanFlow ) ; 

scColumn () : 

fShapePieces( 0 ), 
fRgnH( 0 ), 
fNextContext ( 0 ) , 
fAppName( 0 
fColumnCount( 0 ), 
fSize( 0, 0 

fFlowDirf eRomanFlow ), 
f Stream ( 0 ), 
f Selection ( 0 ), 
fFirstline( 0 ){} 



'"'scColumn () ; 
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///////////////////// FLOW SET METHODS //////////////////////////// 
/////////////////////////////////////////////////////////////////// 



void 



void 



void 



// delete the stream from the flowset 

// RETURNS the damaged area(s) 

// 

FlowsetClearStream( scRedispList* ); 

// remove the stream from the flowset 

// RETURNS the damaged area(s) 

// 

FlowsetCutStream( scStream*, scRedispList*); 

// paste the stream into the flowset 

// RETURNS the damaged area(s) 

// 

FlowsetPasteStream( scStreara*, scRedispList* ); 



// get the selection object associated with 
// the flowset, if there is none it will 
// create one 

// 



scSelection* FlowsetGetSelection ( void ), 



in 

j=y void 

iy 

~~ void 
1 3 



// set the selection object for the flowset 
// none should exist, since if it does 
// error recovery might be a bit tricky 
// 

FlowsetSetSelection( scSelection* ); 

// this removes the selection from the flowset 
// NOTE: it does not delete it 

// 

FlowsetRemoveSelectionf void ); 



£3 
U 



void 



f i 

[3 void 

scColumn* 



void 



// invalidate any selection associated with 
// the flowset 
FlowsetInvalidateSelection( void ); 

// set the flow for the flowset 
// all containers in a flowset must have the 
// same flow at this time 
FlowsetSetFlowdir ( const scFlowDir& ); 

GetFlowset( void ) const 
{ 

return (scColumn* ) FirstlnChain () ; 

} 

RecomposeFlowset ( long ticks «■ L0NG_J4AX„ 

scRedispList* redisplist * 0 ); 



///////////////////// COLUMN METHODS ////////////////////////////// 



void 



Enumerate ( long& ); 



// draw the column updating the area 
// intersected by the damage rect 
// 

virtual void Draw( const scXRect& damagedRect, 
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Al^^Ctx, 



const scMuPoint* translation « 0 ); 



void 



Hilite( const TextMarker&„ 
const TextMarker&„ 
HiliteFuncPtr, 

const scSelection& selection ); 



// FILE I/O 

// complete the read 
virtual void Read( scSet*, APPCtxPtr, IOFuncPtr ); 

// complete the write 
virtual void Write ( APPCtxPtr, IOFuncPtr ); 

// restore the pointers after completing a read 
virtual void RestorePointers( scSet* ); 



void 
Bool 



SetRecomposition ( Bool tf ); 
GetRecomposition( void ) const; 



scTextline* 



H void 

: : 

: s 

3 

. a 



scTextline* 



void 
^ void 

'-4 scContUnit* 
J scContUnit* 



scContUnit* 



// get or set the first line of the column 

// 

GetFirstline ( void ) const 
{ 

return fFirstline; 

} 

SetFirstline( scTextline* txl ) 
{ 

fFirstline = txl; 

} 

GetLastline( void ) const; 



TranslateLines( const scMuPoint& ); 
RepositionLines( void ); 

MarkParas ( void ) ; 
LastPara( void ) const; 

// return the first paragraph in this container 
// for reformatting purposes, we will assume that 
// the previous container has been successfully 
// reformatted 
FirstPara( void ) const; 



// return the number of lines for this column, 
// if it is not formatted it will return -1 
ushort GetLinecount ( void ) const; 

virtual void Resize( const scSize& size, scRedispList* * Q ); 
void Resize ( MicroPoint, MicroPoint, scRedispList* «■ 0 ); 

scXRect& RepaintExtent ( scXRect& ); 

void QueryMargins( scXRect& ) const; 

void QuerySizef scSize& ) const; 

void QueryTextDepth ( MicroPoint& ) const; 

MicroPoint TextDepthf void ) const; 

void GetTSListf scTypeSpecList& ) const; 



// should we reformat this column or wait till later 
Bool DamOpen( void ); 
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void 
void 

void 
void 

Bool 

void 
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Rebreak(^PRedispList* ); 

Rebreak2( scRedispList* ); 

ExternalSize( long& ); 
ZeroEnumeration( void ); 

GetStrip( scLINERefData&, int, scCOLRefData& ); 

DeleteExcessLines( scContUnit*, scTextline*, Bool, scCOLRef Data& ); 



/////////////////// COLUMN SHAPE METHODS ////////////////////////// 



void 
void 
void 

void 
void 

void 



ReplacePoly( scVertHandle, scRedispList* ); 
PastePoly( scVertHandle, scRedispList* ); 
CopyPoly( scVertHandle* ); 

PasteRgn( const HRgnHandle, scRedispList* ); 
CopyRgn( HRgnHandle& ); 

ClearShape( scRedispList* ); 



///////////////// COLUMN LINKAGE METHODS ////////////////////////// 



£3 
si 
£n 

ry 

iy 
£3 

a 

h. i 



void 
void 

void 

void 



scColumn* 
scColumn* 

void 

void 



Link( scColumn*, Bool, scRedispList* ); 
Unlink( scRedispList* ); 

Renumber ( void ); 

BreakCha i n ( scCo 1 umn* ) ; 

// get the next or previous column that 

// actually contains lines (i.e. composed text ) 

// 

PrevWithLines ( void ) const; 
NextWithLines ( void ) const; 

ComputeInkExtents( void ); 



SetlnkExtents ( MicroPoint xl, MicroPoint yl, MicroPoint x2, MicroPoint y2 ) 
{ 

f InkExtents.Set ( xl, yl, x2, y2 ); 

} 

const scXRect& GetlnkExtents ( void ) const 
{ 

return flnkExtents; 

} 

void UnionInkExtents( const scXRect& xrect ) 



flnkExtents. Union ( xrect ); 



Bool 
Bool 

scStream* 



void 



void 
void 



MoreText( void ) const; 
HasText( void ) const; 

GetStream( void ) const 
{ 

return f Stream; 

} 

SetStreamf scStream* stream ) 
{ 

f St ream » stream; 

} 

Set F lowsetSt ream ( scStream* stream ) 
FreeStream( void ); 
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eVertJust 



void 



eColShapeType 



void 



GetVertJust( void ) const 
{ 

return ( eVert Just ) f LayB i ts . f LayAd j us tmen t ; 

} 

SetVertJust( eVertJust vj ) 
{ 

fLayBits.f LayAd justment » v j ; 

} 

GetShapeType ( void ) const 
{ 

return (eColShapeType) f LayB its . f LayType ; 

} 

SetShapeType ( eColShapeType st ); 



ushort 



GetShapePieces ( void ) const 



return fShapePieces; 



scVertHandle 



void 



C3 
Cn 



HRgnHandle 



Lii 



void 



GetVertList ( void ) const 
{ 

return fVertH; 

} 

SetVertList( scVertHandle vl ) 
{ 

fVertH » vl; 

} 

GetRgn( void ) const 
{ 

return fRgnH; 

} 

SetRgn( HRgnHandle rgn ) 
{ 

fRgnH * rgn; 

} 



void 



id 



APPColumn 



a 



void 



MicroPoint 



void 

MicroPoint 
void 



const scSize& 



SetAPPName( APPColumn appcol ) 
{ 

f AppName » appcol ; 

} 

GetAPPName( void ) const 
{ 

return f AppName; 

} 

SetWidth( MicroPoint w ) 
{ 

fSize.SetWidth( w ) ; 

} 

Width ( void ) const 
{ 

return f Size. Width () ; 

} 

SetDepth( MicroPoint d ) 
Depth ( void ) const 

SetSize( const scSize& size ) 



fSize » size; 



GetSize( void ) const 
{ 

return fSize; 

} 



{ fSize.SetDepth( d ); } 
{ return f Size .Depth () ; } 



void 



SetSize( MicroPoint w, MicroPoint d ) 
{ 

fSize.SetWidth( w ), fSize .SetDepth ( d ); 
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scColumn* 

scColumn* 
void 

long 
void 



} 



GetPrev( void ) const 
{ 

return (scColumn* ) Prev( ) ; 



} 

GetNext( void ) const 

SetCount( long count ) 
{ 

fColumnCount - count; 

} 

GetCount( void ) const 
{ 

return fColumnCount; 

} 



SetFlowdir( const scFlowDirS fd ) 
{ 

fFlowDir » fd; 

} 



{ return (scColumn*)Next ( ) ; } 



const scFlowDir& GetFlowdir( void ) const 

{ 

return fFlowDir; 

} 



void 



C3 

i b j scColumn* 

s 

ry 

s void 
^ void 
'^4 Bool 

H 



C3 Bool 



I \ 

•z tar 

^3 

r=i void 
hJ void 

void 

void 

void 

void 
void 

void 
#if SCDEBUG > 1 

virtual void 

void 
#else 

virtual void 
#endif 



SetContext( scColumn* ctx ) 
{ 

fNextContext » ctx; 

} 

GetContext( void ) const 
{ 

return fNextContext; 

} 

SetVertFlex( Bool, scRedispList* ); 
SetHorzFlex( Bool, scRedispList* ); 
GetVertFlex( void ) const 
{ 

return GetShapeType ( ) & eVertFlex; 

} 

GetHorzFlex( void ) const 
{ 

return GetShapeType ( ) & eHorzFlex; 

} 



Delete ( scRedispList* ); 
Free( void ) ; 
FreeShape( void ); 
FreeScrap( void ); 

UpdateLine( sdmmediateRedisp&, APPDrwCtx ); 

Line£xtents( sclromediateRedispSc ); 
FreeLines( Bool, scXRect& ); 

InvertExtents( HiliteFuncPtr, APPDrwCtx ); 

scAssertValid( Bool recurse • true ) const; 
DbgPrintInfo( int debugLevel - 0 ) const; 

scAssertValid( Bool = true ) const{} 



static scColumn* 



FindFlowset( const scStream* ); 



// context list 
static scColumn* GetBaseContextList ( void ) 
{ 

return fTheContextList; 



static void 



} 

FiniCTXList( void ); 
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void 



void 
void 
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AddToi 



( ) 



fNextContext - fTheContextList; 
fTheContextList - this; 



} 



DeleteFromCTXList( ) ; 
VerifyCTXList ( void ) const; 



static void ChangedTS( TypeSpec, eSpecTask, scRedispList* ); 
static void Update ( scRedispList* ); 



void 



LineInfo( scLinelnfoList*, 
long&„ 

Bool & ) const; 



void 
void 
void 



VertJustify( void ); 

SetDepthNVJ( MicroPoint„ scRedispList* ); 
SetVJ( eVertJust ); 



void 



// COLUMN SELECTION 

ClickEvaluate( const scMuPoint&, 
REALS ); 



void 



*~ void 



^3 void 



hi 



ij Bool 

£3 



St artSh i f tC 1 ick ( scSt reamLocat i on& , 
const scMuPoint&, 
HiliteFuncPtr, 
APPDrwCtx, 
scSelection*& ) ; 

StartClick( const scMuPointSt, 
HiliteFuncPtr, 
APPDrwCtx, 
scSelection*£t ) ; 

Continued ick ( const scMuPoint& „ 
HiliteFuncPtr, 
scSelection* ) ; 



Select ( const scMuPoint& hitPt, 

TextMarker* textMarker „ 

REAL* bestDist ); 



void 
void 

void 
void 
void 



InitialSelection( TypeSpec&, scSelection*& ); 

SelectSpecial ( const scMuPoint&, 
eSelectModifier, 
scSelection*& ); 

LimitDamage( scRedispList*, long ); 

PasteAPPText ( stText Import Exports, scRedispList* ) : 

ReadTextFile( TypeSpec, 
APPCtxPtr, 
IOFuncPtr, 
scRedispList* ); 



protected : 



scSelection* 



// do not confuse the following with flowset operations 
GetSelection ( void ) 
{ 

return f Select ion; 
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void 



} 

SetSelection( scSelection* sel ) 



f Selection ■ sel; 



virtual Bool 
private: 

static scColumn* 
void 

scColumn* 
APPColumn 

long 
#if 0 

MicroPoint 

MicroPoint 
#else 

scSize 
#endif 

scFlowDir 

CJscStream* 



// actually allocate the real estate for lines 
GetStrip2( scLINERefData&, int, scCOLRefData& ); 



fTheContextList ; 
CreateSelection ( void ); 
fNextContext; 
f AppName ; 
fColumnCount; 



// application name 



fWidth; 
f Depth; 

fSize; 



scSelection* 
scXRect 



ru 

QScTextline* 



3 ^ushort 
Nunion { 

13 scVertHandle 
HRgnHandle 



fFlowDir; 

f Stream; 
f Select ion; 

f InkExtents; 

fFirstline; 

fShapePieces; 

fVertH; 
fRgnH; 



// width of column 
// depth of column 



// the basic flow direction of a container 
// hook into stream 

// actual extents w/ italics, idents, etc. 
// firstline of the column 
// num of components of shape 



#def ine FIRST_LINE_POSITION 
#d|Jin© HorzFlexMeasure 

/*^4hese seems arbitrary, 

* but we need to get it 

* away from LONG_MAX 



SBeoeaonoeaseBnmnasaBtt/ 



(L0NGJ4IN + 1) 
(L0NGJ4AX - one_pica) 



/* BoBB=seesBCnBE 



SBBBSDaeeaaaosBBOooat 

SSBaSBSBeBSBBBaBBBBSS 



3 ta es ra */ 
sessassaff/ 



/* OPTIMIZATIONS */ 

#define COLShapePieces( c ) ( (c) -> fShapePieces ) 



/* PROTOTYPES */ 
/*»•»**•»••*»•»»« 



short COLLineNum( scSelection* ); 



/* as a o BaBaBBBaBBBBaBaBBBBeBaBBaBeaaaBBBaaoaoaaBBBSBBeaanB8BB8BBBB8BaoBBaa ostsaft/ 
/ 1t aBBBBaaaoao eao3BBiiBaecBB = BBBaaBSBBsaoBBOBn = BBBBBBBBseBaaBQB3BenBBeoaSBooB ta* / 
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#endif /* _H_SCCOLUMN »/ 




ru 
Q 

Q 
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/« 



ft 



File: SCCOLUMN.C 

$Header: /Projects/Too lbox/ct/Sccolumn .cpp 4 5/30/97 8:45a Wmanis $ 
Contains: The 'methods' for the column objects. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
Ml rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



^include "sccolumn.h" 

#i ncl ude "scpubob j . h " 

#include "scapptex . h " 

#include "sccallbk .h" 

^include "scstcach . h " 

#include "scglobda ,h" 

# include "scmem . h " 

lOnclude "scparagr.h" 

#§nclude "scpolygo.h" 

J&iclude "scregion .h" 

^jiclude "scselect .h" 

likclude "scstream.h" 

tfpiclude "scset.h" 

^include "sctextli .h" 

^fhclude "screfdat.h" 

iihclude "scf ileio .h" 

u 

#include <float.h> 

S 

/^fc? BSBnaaaBBaaaaaaaaaaBBBBBaaaBBBBBBnaBBaaaasBaBBBBasBBaaBeBBaBSBBBBBBB »/ 
BBns&osBonconsooBSSBOisooDasBODSsSDnssaBssssnDsssBtsoBaocnssDciSBtiaisest] »/ 

hi 

sclJolumn* scColumn : :fTheContextList » 0; 

ha 

s 

/f^^i BBaBBaBBaBBBBBaaBBBBaB3BBBaB3BBBaSaBB9Bnoe09BBaaBBDnBDnaBBBOBa09BBBaB */ 

sccolumn : : ~scColumn ( ) 
{ 

delete fSelection, f Selection - 0; 

} 

/* BSaBBBBBBBSSBBBSBBBBBBBBBBBSBBBBBBBBBBBBaBBBaBSSSBBBaBSSSBaBBaSBaBSSBBB */ 

#define FILE_SIZE_COLUMN 28 



void scColumn :: Read ( scSet* enumTable, 

APPCtxPtr ctxPtr, 
IOFuncPtr readFunc ) 

{ 

uchar abuf [FILE__SIZE_COLUMN] ; 

const uchar* pbuf » abuf; 

scTBOb j : : Read ( enumTable, ctxPtr, readFunc ); 
Mark( scINVALID ); 

// read in the rest of the columns data 
ReadBytes( abuf, ctxPtr, readFunc, FILERS I ZE_C0LUMN ); 



// pointer to stream 
ulong uval ; 
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pbuf » BufGet_long( pbufl^Fal, klntelOrder ); 
f Stream » (scStream*)uval ; 

// pointer to first line 
pbuf = BufGet_long( pbuf, uval, klntelOrder ); 
scAssert( uval « 0 ); 



// flow direction 
ushort uflow; 

pbuf » BufGet_short ( pbuf, uflow, klntelOrder ); 
fFlowDir.SetLineDir( (eTextDirections) uflow ); 

pbuf » BufGet_short( pbuf, uflow, klntelOrder ); 
fFlowDir.SetCharDir( (eTextDirections) uflow ); 

// width & depth 
pbuf « BufGet_long( pbuf, uval, klntelOrder ); 
fSize.SetWidth( uval ); 

pbuf » BufGet_long( pbuf, uval, klntelOrder ); 
fSize.SetDepth( uval ); 

// application name 
pbuf » BufGet_long( pbuf, uval, klntelOrder ); 

fAppName « (APPColumn)APPDisklDToPointer ( ctxPtr, (long)uval, diskidColumn ); 
// count 

pbuf * BufGet_long( pbuf, uval, klntelOrder ); 
fColuranCount - uval; 

13 

q scAssert ( (size_t) (pbuf-abuf ) « FILE_SIZE_COLUMN ); 

\[) // shape type 

1U long val; 

Q ReadLong( val, ctxPtr, readFunc, klntelOrder ); 
j J . if ( val ) { 

HRgnHandle rgnH = RG*SfromFile( ctxPtr, readFunc, fShapePieces ); 
SetShapeTvpe ( eRgnShape ) ; 

£3 fRgnH = rgnH; 

""J 

|:i scAutoUnlock h( fRgnH ); 

HRgn« rgn « (HRgn «)«h; 



fShapePieces » (ushort )rgn->fNumSli vers; 



C3 > 
else 

fShapePieces =0; 

if ( !GetPrev() ) 

scStream: :STRFromFile( enumTable, ctxPtr, readFunc ); 

} 

/• ACTUAL WRITE, this performs the write out of the column data structure, 

* paragraphs are written out with the first column in a set of linked columns 

* other than the column itself the only thing we will be writting out will 

* be the outline vertices 
*/ 



void scColumn: : Write ( APPCtxPtr ctxPtr, 

IOFuncPtr writeFunc ) 



{ 



scTBObj : :Write( ctxPtr, writeFunc ); 

uchar abuf [FILE_SIZE_COLUMN] ; 
uchar* pbuf « abuf; 

// pointer to stream 
pbuf <* BufSet_long( pbuf, f Stream ? fStream->GetEnuraCount ( ) : 0, klntelOrder ) 
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// pointer to first line 
pbuf » BufSet_long( pbuf, 0, klntelOrder ); 

// flow direction 

pbuf - Buf Set_short ( pbuf, (ushort)fFlowDir .GetLineDir ( ) , klntelOrder ); 
pbuf =- BufSet_short ( pbuf, (ushort) fFlowDir.GetCharDir( ) , klntelOrder ); 

// width & depth 
pbuf - BufSet_long( pbuf, f Size. Width () , klntelOrder ); 
pbuf - BufSet_long( pbuf, f Size. Depth () , klntelOrder ); 

// application name 
pbuf * BufSet_long( pbuf, 

APPPointerToDiskID( ctxPtr, fAppName, diskidColumn ), 
klntelOrder ) ; 

// count 

pbuf ■ BufSet_long( pbuf, GetCountf), klntelOrder ); 

scAssert ( (size_t) (pbuf-abuf ) « FILE_SIZE_COLUMN ); 

WriteBytes( abuf, ctxPtr, writeFunc, FILE_SIZE_COLUMN ); 

WriteLong( (ulong) fShapePieces, ctxPtr, writeFunc, klntelOrder ); 

switch ( OetShapeType ( ) ) { 

default: 
£3 break; 



case eVertShape: 

POLYtoFile( ctxPtr, writeFunc, fVertH, fShapePieces ); 
[U break; 



S3 > 



case eRgnShape: 

RGNtoFile( ctxPtr, writeFunc, fRgnH, fShapePieces ); 
break; 



a ^ if ( !GetPrev() ) 

C5 fStream->STKToFile( ctxPtr, writeFunc ); 

hi 

/*" eosaBseaaeBaaaBaaaiieiiiBDaadsatiBBBeEBsaaaaeaaoemBBaBBaaBesaiseaaaaBonaBS * / 

veld scColumn : :RestorePo inters ( scSet* enumTable ) 
if* 

t=? if ( ! Marked ( scPTRRE STORED ) ) { 

scTBObj : :RestorePo inters ( enumTable ); 

AddToCTXList(); 

fStream * (scStream*)enumTable->Get ( (long)fStream ); 
if ( !GetPrev() ) 

fStream->STRRestorePointers( enumTable ); 

} 

} 

void scColumn: :SetRecompos it ion ( Bool tf ) 
{ 

scColumn* col - (scColumn* )FirstInCha in ( ) ; 

if ( tf ) 

col->Mark( scLAYcomposeACTIVE ); 

else 

col->Unmark( scLAYcomposeACTIVE ); 

} 



/* —i 



aaaeaBBBBBaasaBSBBBBonaaBBanoBCBaiciiBoaaaaBoaaBnnRBananBOBBaseanaKB */ 
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Bool scColumn : :GetRecomposition( void ) const 
{ 

scColumn* col - (scColumn* )FirstInChain() ; 
return col->Marked( scLAYcoxnposeACTIVE ); 

} 

/# CBOBoaaaasBDaDDDaaaaanaaaeoBBDismnaoBDiinDDSoosnnoaoananaagioBseBoaeigBa * / 

// get the selection object associated with the flowset, if there is 
// none it will create one 

scSelection* scColumn : :Flowset Get Select ion ( void ) 
{ 

scColumn* col - (scColumn* )FirstInChain() ; 

if ( !col->GetSelection() ) 

col->SetSelection( SCNEW scSelection( col ) ); 



} 



return col->GetSelection ( ) ; 



/# BBSDoaoaaBBsanitaoiBeooaooBciaDouneBoaaaaeaBoaBSOBeaaaBaBOBBaaaBSBBBaBO * / 

// set the selection object for the flowset none should exist, 
// since if it does error recovery might be a bit tricky 

void scColumn: :FlowsetSetSelection ( scSelection* sel ) 
{ 

scColumn* col * (scColumn* JFirstlnChain () ; 

£3 

q col->SetSelection( sel ); 

kn 

onsssnaeooBBOBOomKaaenaaeaBaeaBaaaaaBBaBaaasaaBaBBBaaQBOBDSBBBBBnaBO */ 

^3 this removes the selection from the flowset 
//jNOTE: it does not delete it 

vcrid scColumn: :FlowsetRemoveSelect ion ( void ) 

m 

g scColumn* col - (scColumn* )FirstInChain () ; 
col->SetSelection( 0 ); 

/# ^DBvaeBeaBBBBBBBtsBaBnBSBanaonaBBBnBtitaaBDaciBonBBBOBBSBaaaitBBBBSaaBaaDa * / 

M 

v|3d scColumn: : Flowset InvalidateSelect ion ( void ) 

{f3 

scColumn* col =■ (scColumn* JFirstlnChain () ; 

scSelection* sel - col->GetSelection() ; 

if ( sel ) 

sel->Invalidate () ; 

} 

void scColumn: :RecomposeFlowset( long ticks, scRedispList* redispList ) 
{ 

scColumn* col = (scColumn*) FirstlnChain () ; 

SetRecomposition ( true ); 

for ( ; col; col « col->GetNeKt ( ) ) { 

if ( col->Marked( scINVALID ) && col->DamOpen() ) 

col->LimitDamage ( redispList, ticks ); 
else if ( col->Marked( scREALIGN ) ) { 

scRedisplayStoredLine rdl ( GetLinecount ( ) ); 
rdl .SaveLineList ( this ); 



col -> Vert Jus t i fy () ; 
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scXRect lineDama^ 

rdl .LineListChanges( this, lineDamage, redispList ); 
col->Unmark( scREALIGN ); 

} 

} 

scSelection* select - FlowsetGet Select ion () ; 
select->UpdateSelection ( ); 

} 

/* oseaitDaBaDssaaBaaaEisscanosoaDDDneiiaisoooaonaaDOflaBaeBBBaaaanaiteonoona * / 
/* Qafle*eonoacasaaaoDDoaDDBaaaaaBeBaceaBBesoaoaoBaBsasaB3Baa3BaooiiQ3Dsn * / 

#if SCDEBUG > 1 

void scColumn: rscAssertValid ( Bool recurse ) const 
{ 

scTBObj : :scAssert Valid ( recurse ); 
if ( ! recurse ) { 

if ( fFirstline ) 

fFirstline->scAssertValid( false ); 

if ( f Stream ) 

f Stream- >scAssertVal id ( false ); 

} 

} 

#endif 

/» BaBBBnnBBOBBBBBBBoiBBaBBBfflsaBBaaaaaaBBBBBaaasaeaaaaBBBBBBBBSaaBaBBBBBB * / 

// should we reformat this column or wait till later 
Efool scColumn : :DamOpen ( ) 

fB return APPRecomposeColumn ( GetAPPName() ); 

}=;; 

/Jf/J BSBaoBssBoaBessseB&iEeaaaBasnsBBBsesaaasnosBBSBsaaasBBnBsaseaBBBSBsaaB * / 

/j*jset the max selection extent based upon the column flow direction */ 

static void COLSetSelMax ( scColumn* col, 
C 3 TextMarker* tm , 

const scMuPoint& muPt ) 

c n 

*~ if ( col->GetFlowdir() .IsVertical () ) 
% 4 tm->fSelMaxX » muPt.y; 
l i else 

*f tm->fSelMaxX => muPt.x; 

13 

/W ^ai B8BaaaeBaaBSBaaBeaBBBBBBB8aBBBB8BBaBcsaflBBBDB8e8BaBSB8BaaaaBaBB3BaB » / 

/^Tiilite or dehilite the characters in this column •/ 

void scColumn: :Hi lite ( const TextMarker& tmMark, 

const TextMarker& tmPoint, 

Hi 1 i teFuncPtr f unc , 

const scSelection& selection ) 



{ 



scTextline* txl; 
scTextline* lastTxl; 

scTextline* txll = tmMark.fTxl; 

scTextline* txl 2 - tmPoint . fTxl ; 

MicroPoint startLoc « tmMark . fHLoc , 

stopLoc - tmPoint .fHLoc; 
APPDrwCtx appMat ; 

APPDrawContext ( GetAPPName ( ) , this, appMat ); 
lastTxl « txl2->GetNext() ; 

for ( txl • txll; txl && txl ! - lastTxl; txl - txl->GetNext() ) { 
if ( txl — txll ) 

txl->Hilite( &tmMark, startLoc, NULL, L0NG__MAX, appMat, func, selection ); 
else if ( txl txl2 ) 

txl->Hilite( NULL, LONGJMIN, &tmPoint, stopLoc, appMat, func, selection ); 
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else 

txl ->Hi lite ( NULLT10NGJ4IN, HULL, LONGJMAX, appMat, func, selection ); 

} 

/* select text in a col at the given hit point •/ 

Bool scColumn: : Select ( const scMuPoint& hitPt, 

TextMarker* textMarker, 
REAL* bestDist ) 

{ 

scXRect exRect ; 
scTextline* txl; 
long count; 
scMuPoint charOrg; 
MicroPoint fudgeHFactor, 
fudgeVFactor; 
REAL dist; 
Bool belowText « false; 

Bool vertical « false; 

int lineNum; 

vertical - GetFlowdir ( ) . IsVertical ( ) ; 

/* make first hit infinitely far away */ 
•bestDist » DBL_MAX; 

textMarker~>fCol = this; 

textMarker- >f Col Count « GetCount(); 

p textMarker->fPara « NULL; 

. ^ textMarker->fTxl « NULL; 

& fudgeHFactor » fudgeVFactor -0; 

fii 

while ( GetFirstline() && ! textMarker->f Para ) { 
^ for ( lineNum - 0, txl = GetFirstline () ; txl; txl - LNNextf txl ), lineNum++ ) { 

%y 

s 4 txl->QueryExtents( exRect ); 

p grow hit by fudge factor to account for sloppy hits, 

// how well will this worked on zoomed text?, this value 
// is in world coordinates, NOT the screen coordinates 
p exRect .Inset ( fudgeHFactor, fudgeVFactor ); 



s 



6 1 if ( exRect. PinRect( hitPt ) ) { 

SCDEBUQ > 1 

SCDebugTrace ( 2, scString( "COLSelect: line #*4d (2d,*d) (Zd *4d kd %d)\n" ), 
£2 lineNum, 

m rauPoints( hitPt.x ), muPoints( hitPt.y ), 

*~ muPoints( exRect. xl ), muPoints( exRect. yl ), 

muPoints( exRect. x2 ), muPoints( exRect .y2 ) ); 

#endif 

Bool endOfLine; 

// we have a hit within the extents of the line, now see 
// exactly where on the line we may have selected 
dist - txl->Select( charOrg, count, hitPt, eCursNoMovement , endOfLine ); 

if ( dist < *bestDist ) { 

// we have a hit that is better than any previous hit 
•bestDist = dist; 

if ( vertical ) 

textMarker->fHLoc • charOrg. y; 

else 

textMarker->fHLoc = charOrg. x; 

textMarker- >f Of f set - count; 

// if ( LN0rigin( txl ) + LNLength(txl ) <» fHLoc && LNIsHyphenated ( txl ) ) 

" textMarker->f EndOfLine « true; 

// else 

textMarker->f EndOfLine • endOfLine; 
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textMarker->fPara - txl ->Get Para ( ) ; 

textMarker->fTxl « txl; 

textMarker-> f ParaCount a textMarker-> f Para->GetCount ( ) ; 
textMarker->fLineCount » txl->GetLinecount ( ) ; 

} 

} 

/» if no selection and the y position is 

* lower than the top of the last line, then 

* select the last char on the last line 
»/ 

/* assumes lines move from right to left */ 
if ( vertical ) 

belowText « ! LNNext ( txl ) && hitPt.x < exRect.x2 && *bestDist « DBL_MAX; 

else 

belowText - I LNNext ( txl ) && hitPt.y > exRect.y2 && *bestDist DBL_MAX; 
if ( belowText ) { 

♦bestDist • txl->Select( charOrg, count, hitPt, eCursForward, textMarker->fEndOfLine 

); 

textMarker->fOf fset = txl->GetEndOf fset () ; 
scMuPoint charOrg; 

charOrg 13 txl->Locate( textMarker->fOf fset „ charOrg, eCursForward ); 

if ( vertical ) 

textMarker->fHLoc - charOrg. y; 

I J textMarker->fHLoc - charOrg. x; 



textMarker->fPara « txl->GetPara ( ) ; 

V!? textMarker->fTxl » txl; 

textMarker->f ParaCount = textMarker->fPara->GetCount ( ) j 

textMarker->fLineCount « txl->GetLinecount ( ) ; 
break; 



ri I 



a 

3 

n 



if ( vertical ) { 

fudgeHFactor — scPOIOTS(l); 
fudgeVFactor — scPOINTS(B); 

} 

else { 

fudgeHFactor -« scPOIOTS(144) ; 
fudgeVFactor — scPOINTS ( 1) ; 

£3 > 
S3 > 

return ( taxtMarker-> f Para ! = NULL ) ; 

} 

/* BSsoaDnaatDQODnaanosanianaiianBaadottaaMBiitiBiiBaaDBeeatstSBBBeaasDEiianBadDo » / 

/» return a number that is the square of the dx plus the square of the 
* dy between the 'pt' and a significant point 
»/ 

void scColumn: :ClickEvaluate ( const scMuPoint& pt, 

REAL& dist ) 

{ 

TextMarker tm; 

REAL nearDist; 

dist » DBLJ4AX; /* defined in scmath.h «/ 

if ( GetStream() ) { 
tm.fCol * this; 

raise_if ( ! Select ( pt, &tm, &nearDist ), scERRlogical ); 

} 

dist = nearDist; 
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/* select something special indicated by the SelectType «/ 

void scColumn : :SelectSpecial ( const scMuPoint& pt, 

eSelectModif ier selectMod, 
scSelection*& select ) 



{ 



select = FlowsetGetSe lection ( ) ; 

scSelection newSelection ( *select ); 
REAL dist; 

if ( !GetStream() ) 
return ; 



newSelection.fMark.fCol « this; 
COLSetSelManf this, &n ewSelecti on . fMark, pt ); 

if ( selectMod " eAUSelect ) 
newSelection .AllSelect( ) ; 
else { 

#ifdef TESTEXTENTS 
{ 

HRect maxExRect, /• column extents »/ 

maxMargRect; /« column margins «/ 

^~ /* if the point is to far out of the maxExRect 

%J * things will get very slow 

Cn */ 



■~ s 



maxExRect =* col ->f Extents; 

SetHRect( SauaxMargRect , 0, 0, col->fWidth, col->fDepth ); 
UnionHRect( SmaxExRect, SmaxMargRect, SanaxExRect ); 



if ( IMuPtlnHRect ( pt, SroaxExRect ) ) { 
/* the point is in GM's front yard */ 
return scERRbounds; 

} 



$endif /* TESTEXTENTS */ 

h 

vet 

S3 raise_if( !Select( pt, &newSe lecti on . fMark, &dist ), scERRbounds ); 

newSelection. f Point » newSelection . fMark; 

switch ( selectMod ) { 
case eWordSelect: 

newSelection .WordSelect ( ) ; 

break ; 
case eLineSelect: 

newSelection .LineSelect () ; 

break; 
case eParaSelect: 

newSelection . ParaSelect ( ) ; 

break; 
case eColumnSelect : 

newSelection .ColunmSelect () ; 

} 

} 

•select - newSelection; 



/* BaBBBBBaBBBCBBBBBBOaBnBBBaBBaBSBBDBaBBBaeBBBBBBBBBaaBBOaBDanBBBBBSnB * / 

/» start selection in the original column 
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void scColumn: : St artC lick ( coBst scMuPoint& pt, 

HiliteFuncPtr func, 
APPDrwCtx, 

scSelection*& select ) 



{ 



REAL dist; 
scSelection selection; 

if ( !GetStream() ) 
return ; 

selection. f Mark. f Col - this; 
COLSetSelMax( this, ^selection . f Mark, pt ); 

raise_if ( I Select ( pt, ^selection . fMark, &dist ), scERRlogical ); 
select ion. f Point - selection . f Mark; 
selection .LineHilite ( func ); 
select « FlowsetGetSelection ( ) ; 
♦select - selection; 



} 



Ceroid scColumn: :ContinueClick( const scMuPoint& pt, 
t g HiliteFuncPtr func, 

IZ. scSelection* select ) 

% % 

REAL dist; 
} scSelection oldSelection ( *select ); 



1 :! 



js a. 

-A 



raise_if( I select->fMark . fCol , scERRstructure ); 

if ( IGetStream() ) 
return ; 

select->fPoint .fCol » this; 



y if ( !GetFirstline() ) 
return; 

M 

p // columns not in same stream, application program should catch this 

*^ raise_if ( select ->f Mark. f Col ->GetStream( ) != select->f Point . fCol->GetStream( ) , scERRstructure 

^"); 

COLSetSelMax( this, &select->f Point , pt ); 

if ( Select( pt, &select-> f Point , Mist ) ) { 

select-> Interact iveHilite( oldSelection, func ); 

} 

else 

raise ( scERRlogical ); 

} 

void scColumn: :StartSh if tC lick ( scStreamLocation& mark, 

const scMuPointSc pt. 
Hi 1 i teFuncPtr func , 

APPDrwCtx , 

scSelection*& select ) 

{ 

REAL dist; 

if ( !GetStream() ) 
return ; 

select - FlowsetGetSelection () ; 
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select->Restore ( &nark,^^pi, false ); 

select->fPoint . fCol a this; 

if ( Select( pt, &select->fPoint, &dist ) ) 
select->LineHilite( func ); 

else 

raise ( scERRlogical ); 

} 

void scColumn: : InitialSelection ( TypeSpec& ts, 

scSelection*& select ) 

{ 

scMuPoint mPt; 
TextMarker tm; 
REAL dist; 
scContUnit* first Para; 
Bool iAdded «* false; 

select « NULL; 

raise_if( GetPrev(), scERRlogical ); 

if ( !GetStream() ) { 

firstPara » scContUnit : '.Allocate ( ts, NULL, OL ); 

fB | // initialize spec cache 

^ scCachedStyle: :SetParaStyle( firstPara, ts ); 

*3 scCachedStyle: :GetCachedStyle ( ts ); 

Cf? 

? {i SetFlowsetStream( (scStream*) firstPara ); 

! ad 

Q Mark( scINVALID ); 

|j LimitDamage( 0, scRef ormatTimeSlice ); 

iAdded - true; 



} 

mPt.Set( 0, 0 ); 



. , if ( I Select ( mPt, &tm, &dist ) ) { 

% ! if ( iAdded ) 

I. J FreeStream( ); 

raise ( scERRstructure ); 

s ' 

fi select - FlowsetGetSelection() ; 
select->SetMark( tm ); 
select->SetPoint { tm ); 

} 

/» osaBBBaBaBaBaBaaeeaBeaDsnaeoaBaaaaaanaeaBBngiaaaDOsaaitaannc 

void scColumn: :LineInfo( scLinelnfoList* linelnfoList, 

long& nLines, 
Bool& moreText ) const 



{ 



scTextline* txl; 

nLines - GetLinecount ( ) ; 

moreText « MoreText ( ) ; 

if ( linelnfoList && nLines ) { 
scLinelnfo linelnfo; 

lineInfoList-*>RemoveAll () ; 

for ( txl - GetFirstline() ; txl; txl » txl->GetNext ( ) ) { 
txl->GetLineInfo( linelnfo ); 

lineInfoList->AppendData( (ElementPtr)Sdinelnfo ); 

} 
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} 

/ * BnnaanaiaanocanaBsasBnDaBBBeoBiiDoaeoDtisoaeBBaBOEaBiieBeaoanBnsaoDeSRnn * / 

/* paste a region into the indicated column, rebreak and return 
* damaged areas 
*/ 

void scColumn: : Pas teRgn( const HRgnHandle srcRgnH, 

scRedispList* redispList ) 



{ 



ry 



HRgnHandle dstRgnH; 
HRgn» rgn; 

raise_if( srcRgnH °° NULL, scERRstructure ); 

dstRgnH = NewHRgn( RGNSliverSize ( srcRgnH ) ); 

if ( fRgnH ) { 

SectHRgn( fRgnH, srcRgnH, dstRgnH ); 
DisposeHRgn( fRgnH ); 

} 

else { 

CopyHRgn( dstRgnH, srcRgnH ); 
SetShapeType ( eRgnShape ) ; 

} 

fRgnH « dstRgnH; 
scAutoUnlock h( fRgnH ); 
rgn ° (HRgn *)*h; 

fShapePieces - (ushort)rgn->fNumSlivers; 



Mark( scINVALID ); 

LimitDamage( redispList, scReformatTimeSlice ); 



S_ _^/* aanBSDOooDOBsaB&eflCBtsasssaaaasBaaBBaBBSSBonBBBBQBBttaBBnsDnsBmaaasoan <#/ 

^=yoid scColumn: :CopyRgn( HRgnHandle^ dstRgn ) 

'■'4 dstRgn - NewHRgn( RGNSliverSizef fRgnH ) ); 
{a CopyHRgn( dstRgn, fRgnH ); 

M> 

L BBBBaBBBBBBBnaBnaaaaanaoiaoaBaaBBBBBasBoosonDBaBBaoBBaoBaBaBBBBaBQaBB / 

ClK* paste a polygon into the indicated column, rebreak and return 
* damaged areas 
»/ 

void scColumn :: Rep lacePoly( scVertHandle srcVertH, 

scRedispList* redispList ) 



{ 



ushort shapePieces ; 

scVertex* srcV; 
scVertex* dstV; 

scAutoUnlock h( srcVertH ); 
srcV =» (scVertex* )*h; 

shapePieces * POLYCountVerts ( srcV ); 

fVertH - MEMResizeHnd ( fVertH, shapePieces * sizeof( scVertex ) ); 

scAutoUnlock hl( fVertH ); 
dstV « (scVertex* )*hl; 

SCraemmove( dstV, srcV, (size_t) (shapePieces * sizeoff scVertex )) ); 
fShapePieces « shapePieces; 

/* check if poly type is set */ 
SetShapeType ( eVertShape ); 
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Mark( scINVALID ); 

LimitDamage( redispList /^cTteformatTimeSl ice ); 
} 

/* siBBonBSSBnsaBBascsBBBBnssaBnBBa&isaBsaB&fHsaBBBsaBSSBSiBBttaBsmssBBSSBBBaa * / 

#if defined ( scColumnShape ) 

/* add a polygon into the indicated column, rebreak and return 
* damaged areas 
*/ 

void scColumn: :PastePoly ( scVertHandle srcVertH, 

scRedispList* redispList ) 

{ 

ushort shapePieces ; 

scVertex *srcV, 
•dstV; 

raise_if( GetShapeType ( ) « eRgnShape, scERRstructure ); 

scAutoUnlock h( srcVertH ); 
srcV » (scVertex* )*h; 

shapePieces - POLYCountVerts ( srcV ) ; 

SetShapeType ( eVertShape ) ; 

fVertH « MEMResizeHnd( fVertH, shapePieces * sizeof (scVertex) ); 



C3 
sJ 

fri scAutoUnlock h2( fVertH ); 
dstV = (scVertex* )*h2; 

i y 

\1 if ( fShapePieces ) { 
l j dstV ( fShapePieces - 1 ) ; 

scAssertf dstV->fPointType »- eFinalPoint ); 
dstV->fPointType » eStopPoint; 
dstV++; 

} 



S 



SCmemmove( dstV, srcV, (size_t) (shapePieces * sizeof ( scVertex )) ); 
'*4 fShapePieces - (ushort ) (fShapePieces + shapePieces); 



Mark( scINVALID ); 

LimitDamage( redispList, scReformatTimeSlice ); 



snDnaaanaaeaBttnBRaBDBaDigaiaaDsasBCQtaaBEsoBDBnsonneoasaanas */ 



void scColumn : :ClearShape( scRedispList* redispList ) 
{ 

switch ( GetShapeType ( ) ) { 
case eVertShape : 
case eRgnShape: 

SetShapeType ( eNoShape ) ; 
Mark( scINVALID ); 

LimitDamage( redispList, scReformatTimeSlice ); 

break; 
case eVertFlex: 
case eHorzFlex: 
case eFlexShape: 
case eNoShape: 

break; 

} 

} 

/* BBBBBBBBeaaonaeBnaneaaooBaaaaaaaaBeaBBBBaBaaoBaaaBBaaBBnt 



void scColumn: :CopyPoly( scVertHandle* dstVertHP ) 
{ 

scVertHandle scrapPolyH; 
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if ( fVertH && GetShape'^H) os eVertShape ) { 

scrapPolyH ° MEMAllocrad( fShapePieces * sizeof (scVertex) ); 

scAutoUnlock hl( scrapPolyH ); 
scAutoUnlock h2( fVertH ); 

SCmemmove( (scVertex* )*hl, (scVertex* )*h2, (size_t) (fShapePieces * sizeof ( scVertex ) ) ); 

} 

else 

scrapPolyH » NULL; 
*dstVertHP - scrapPolyH; 

} 

/ * ssBBBSBsBBSBtseeoBSBziBflBOBatsEisoaaaaanBBaaBSBaBeBBBBBBsaBBBBaBQBaBSSsas * / 

#endif 

this is primarily called when a column has changed, it forces a rebreak 

* of the paragraphs in the column, * StrRerf omat ' should take care of damage 

* to subsequent paragraphs in subsequent columns, this also forces the 
» the rebreaking of any paragraphs that have no first line, thus if 

* a column is deleted it will force the correct rebreaking 
*/ 

void scColumn: : Limit Damage ( scRedispList* redisplist, long ticks ) 
{ 

scContUnit* firstPara; 
scColumn* nextcol; 



/* look thru the stream until we find an intersection of a paragraph 

* and a column, once we have an intersection we mark all the remaining 

* paragraphs to be rebroken, one problem is that if the column has been 

* made so small no lines are in it, then no paras are marked, the code 
Q * following the walk down the list takes care of that case 

Id m/ 

^ if ( !GetRecomposition() ) { 
C3 Mark( scINVALID ); 

return ; 

} 



s 



"■•J if ( !GetStream() ) 
|:| return; 

^ if ( Marked ( scINVALID ) ) 

Q firstPara - MarkParas( ); 

*2 else 

firstPara * GetStream(); 

/* before we get into the stream make sure all paras that need to 
* be marked as REBREAK are marked as such 
«/ 

for ( nextcol «■ this; nextcol; nextcol = nextcol ->GetNext() ) { 
if ( nextcol ->Marked( scINVALID ) ) 
nextco 1 - >MarkParas ( ) ; 

} 

scAssert( firstPara ! « 0 ) ; 

STRReformat( this, firstPara, ticks, redisplist ); 



/» at3tt»mBmaaaaBssBaan«SBBBaa»»BBts(saKtsas:saE)OB*>:afl 

/* renumber all the columns */ 

void scColumn: : Renumber ( ) 
{ 

scColumn* col = (scColumn* )FirstInChain() ; 
long count; 



/* renumber */ 
for ( count =0; col; col = col->GetNext ( ) ) 
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col->SetCount ( count 

} 

/• ODsaaaaaaiiBsasBSBaiiBaBaflaeaiitigaaoiiigaaaaaonDBatiEiaDesetBaoooDaomasinoBo »/ 

/« creates a new unlinked empty column of specified width and depth */ 

scColumn : :scColumn ( APPColumn appName, 
MicroPoint width, 
MicroPoint depth, 
scStream* p, 
eCommonFlow flow ) : 

fShapePieces( 0 ), 

fRgnHf 0 ), 

fNextContext ( 0 ) , 

f AppName ( appName ) , 

fColumnCount ( 0 ), 

fSize( width, depth ), 

fFlowDir( flow ), 

f Stream ( p ), 

f Selection ( 0 ), 

fFirstline( 0 ) 

{ 

SetShapeType ( eNoShape ) ; 

f InkExtents.Set( 0, 0, 0, 0 ); 

/* add to context list */ 
AddToCTXList( ); 

^ if ( appName «** 0 ) 
%J fAppName • (APPColumn) this; 

0 

f c|/<» sBBBaasaaBasBsaBaDaBBBOBsnsBeBBsaBBaBOBaaBaanoaBDBetiDBSDaaeaeBDaBasa » / 

1ST 

[:ScColumn* scColumn : :FindFlowset ( const scStream* str ) 

- scColumn *col; 

s col = fTheContextList; 

p for ( ; col; col - col->GetContext ( ) ) { 
% "4 if ( col->GetStream() « str ) 

[;! return col->GetFlowset ( ) ; 

il > 

^_ return 0; 

C3 

/Vk aaaBaaaaBaaaaaaaaBaaaBiaaaQasaBBaasBaaaaaBBsaeBSBaaBasasBSoaDaaaBaBBa */ 

void scColumn: :DeleteFromCTXList ( ) 
{ 

scColumn *col; 

col = fTheContextList; 

if { this « col ) 

fTheContextList - GetContext ( ) ; 
else { 

for ( ; col &Sc col->GetContext ( ) !» this; col - col->GetContext() ) 

if ('col ) 

col->SetContext ( GetContext () ); 

} 

} 

/» aaaDBaBBaBaBBBBBeBBaBBeBaaBBBBBBBaaaoaBBOBBBBaBDBBaanBeBBOsaBBBaBB&D ♦/ 

void scColumn: :Ver if yCTXLi st ( void ) const 
{ 

register scColumn* col; 

for ( col - fTheContextList; col; col « col->GetContext ( ) ) { 
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if ( this ~ col ) 
return ; 
} 

raise ( scERRidentif ication ); 

} 

void scColumn: :FiniCD(List( void ) 
{ 

scColumn* col; 
scColumn* nextCol; 

for ( col =■ fTheContextList; col; col = nextCol ) { 

SCDebugTrace ( 1, scString( "FiniCTXList : Qx£08x\n" ) „ col ); 

nextCol «= col->GetContext ( ) ; 

col -> FreeSt ream ( ) ; 

// must do this since all layout are tracked 
col->scTBObj : :Unlink() ; 
col->Free() ; 

} 

} 

f 2 

^l/oid scColumn : :Se tVert Flex ( Bool tf, 

*s scRedispList* redispList ) 

iy if ( tf ) 

13 SetShapeType ( eVertFlex ); 

ill else 

fLayBits.fLayType - (eColShapeType) ( f LayBits . fLayType & "eVertFlex } 
Q Mark( scINVALID ); 

I LimitDamage( redispList, scReformatTimeSlice ); 

^ -^J/* BnBDinaBiBDBsnasoenaneatsseenaaasaRanDooanssaBBonDDaaoonanaaeantBBsaeaBa * / 

id 

j'Tvoid scColumn: :SetHorzFlex( Bool tf, 

scRedispList* redispList ) 



if ( tf ) 

SetShapeType ( eHor2Flex ); 
else 

fLayBits.fLayType - (eColShapeType) ( fLayBits.fLayType & "eHorzFlex ) 
Mark( scINVALID ); 

LimitDamage( redispList, scReformatTimeSlice ); 

} 

/« BBBeaBSBBaasBBasBBsasosaBSSBBEBBBcaasass&BOBBsatiBsaaBSBeaaBaaBBBaBBB »/ 

void scColumn :: SetShapeType ( eColShapeType type ) 
{ 

switch ( type ) { 
case eVertShape: 
case eRgnShape: 

if ( (eColShapeType) fLayBits.fLayType !« type ) 

FreeShape() ; 
fLayBits.fLayType » type; 
break; 
case ©Vert Flex: 
case eHorzFlex: 
case eFlexShape: 
case eNoShape: 

if ( (eColShapeType) f LayBits . fLayType & elrregShape ) { 

/* we are trying to turn an irregularly shaped container 
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Le^^e container - we will have to fre^l^e 



* into a fle^^Je container - we will have to frelBne shape 

FreeShape ( ) ; 
} 

if ( type ■« eNoShape ) 

fLayBits. fLayType - type; 

else 

fLayBits. fLayType - (eColShapeType) ( ( fLayBits . fLayType & eFlexShape ) | type ); 
break; 



} 



/» igiiBcioavDaigiooonnosaottoaDaaoiiEieaaaaBBmBatiDcaaBBansanecBCDaaoBDnBaBiaoon »/ 

/* free the lines with the column, this is tricky because we may want 
* to disentangle pointers at the same time 
«/ 

void scColumn: :FreeLines( Bool reportDamage, 

scXRectfic lineDamage ) 

{ 

scTextline* txl; 

scTextline* nextTxl; 

scContUnit* para; 

scXRect extents; 

scContUnit* streamPresent «■ fStream; 

for ( txl « fFirstline; txl; txl - nextTxl ) { 
#if SCDEBUG > 1 

txl->scTBObj : :scAssertValid() ; 

f 3^endif 

fc g nextTxl = LNNext ( txl ); 

~~ if ( reportDamage ) { 

txl->QueryExtents( extents, 1 ); 
fU if ( extents .Width () ~ 0 ) 

t 3 extents. x2 » extents. xl + 1; 

lineDamage .Union ( extents ); 

H > 

% 4 if ( streamPresent ! - 0 ) { 

p para = txl->GetPara ( ); 

if ( para && para->GetFirstline( ) « txl ) 
s para->SetFirstline( 0 ); 

£3 } 
*j delete txl; 

u } 

M SetFirstline( NULL ); 

C3> 

J 8 * 

/* BBSsDeQBsaonQBaDsaBneaeattsieieadatDnaoaBatifflssaBessBsssasoiBaaaaonaadiioBB */ 

/* free the vertices of this column */ 



void scColumn :: FreeShape ( ) 
{ 

switch ( GetShapeType ( ) ) { 
case eVertShape: 

if ( fVertH != NULL ) 

MEMFreeHnd( fVertH ); 

fShapePieces «■ 0; 

fVertH « NULL; 

break; 
case eRgnShape: 

if ( fRgnH !» NULL ) 

DisposeHRgnf fRgnH ); 

fShapePieces « 0; 

fRgnH = NULL; 

break; 
default: 

break; 

} 

} 



/ * BasaoaaasBBsnaBBBsaBoassBBaBDBaaaBBaBaaaaBaaeMBBBBBBDBeBaBBBaBBaaaaB */ 
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/* free the column* no disei^^^lement of pointers, save its own ^Jlrnal 

* structures 
«/ 

void scColumn: :Free() 
{ 

scXRect lineDamage; 

FreeLines( false, lineDamage ); // deletes lines 
SetShapeiype ( eNoShape ); 

// free it up from the context list 
DeleteFromCTXList ( ); 

delete this; 

} 

/* aBBsoaaanaaoannonDononcnsnootiaaaaBtiiiaadBsaQiiaDnDnaannBatieeaeBaaiaanan »/ 

/» free the column that is part of the scrap */ 

void scColumn : :FreeScrap ( ) 
{ 

scAssert ( ! GetNext ( ) ) ; 

FreeStream( ); /* deletes stream */ 



} 



DeleteFromCTXList ( ); 
Free(); 



* BBaeeaaeiEaanaBcaaBaaaaEBaaBaaaBaeaaaennaaaaaanatttiasBBaaaanaaaBSBeaoa */ 

% Jz/* clear the stream from the set of linked columns, 
£ !l » that this column belongs to 
f\l */ 

/'Void scColumn: :Flowset ClearS t ream ( scRedispList* redispList ) 

iy { 

^•4 scColumn* firstCol « GetFlowset ( ) ; 
scXRect lineDamage; 

s // invalidate selection 

C3 FlowsetlnvalidateSelectionf) ; 



} 



// free all the lines associated with the column (s) 
scColumn* col; 

for ( col - firstCol; col; col - col->GetNext () ) { 
if ( col->GetFirstline() ) 

col->FreeLines ( true, lineDamage ); /* deletes lines */ 

} 

// delete the stream from all the column (s) 
firstCol -> FreeSt ream ( ) ; 



/ * BBBOBBnBOBBBaoBaaBBa3BSBeBSBBa8BBaSS8BBSBBaaBS8BBBIBBBsasaBBaBBBBBBB * / 

/* cut the stream from the set of linked columns, 
* that this column belongs to 
»/ 

void scColumn: :Flowset CutSt ream ( scStream* stream, 

scRedispList* redispList ) 

{ 

scColumn* firstCol - GetFlowset () ; 
scXRect 1 ineDamage ; 

FlowsetlnvalidateSelection ( ) ; 

stream->STRDeformat ( ) ; 

scColumn* col; 

for ( col » firstCol; col; col » col -> GetNext () ) 

col->FreeLines ( true, lineDamage ); /* deletes lines */ 
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SetFlowsetStream( 0 ); 

} 

/• DDDQsDenBaaonaoaadtiDsiioaaanaaeaattaastioatiaBBoiiaasciavaoaBoaeBiiaansiiittoa * / 

void scColumn : :FlowsetPasteStream( scStream* stream, 

scRedispList* redispList ) 

{ 

scColumn* firstCol - GetFlowset ( ) ; 



} 



streara->STRMark( sc RE BREAK ); 

if ( GetStream() ) 

Ge tS t ream ()-> Append ( stream ); 

else 

SetFlowsetStream( stream ); 
firstCol ->Mark( scINVALID ); 

f irstCol->LimitDamage( redispList, scReformatTimeSlice ); 



/* aBBaaaaanBOODnnaaaoaaaaDataoaBaBnaeBBnaBanaaBsaBBaaaBaeaaaaBBaaBBeBaa * / 

/* free the column, not any text associated with it and unlink it from 
* its column chain 
*/ 

void scColumn: : Delete ( scRedispList* redispList ) 

I j scColumn* firstCol; 
fc =5 scColumn* nextCol; 

in 
v . . 

flj firstCol - (scColumn*)FirstInChain() ; 

nextCol * GetWext(); 

W if ( this firstCol ) { 

% 4 // trying to free a column in a chain without 

n // unllinking it 

raise_if( nextCol && GetStream(), scERRstructure ); 

a 



□ if ( ! nextCol && GetStream() ) { 

// we are the only column left so 
s // we need to delete the text stream 
FreeStream( ); 



Q TypeSpec nullSpec; 



} 



// clear the cache to help eliminate refs to specs 
scCachedStyle: :StyleInvalidateCache( nullSpec ); 



} 

scTBObj : :Unlink( ); 
DeleteFromCTXList( ); 



if ( firstCol !- this ) { 
f i rst Co 1 - > Renumber ( ) ; 
firstCol ->Mark( scINVALID ); 

firstCol ->LimitDamage ( redispList, scReformatTimeSlice ); 

} 

else if ( nextCol ) { 

firstCol -> Renumber ( ) ; 
firstCol ->Mark( scINVALID ); 

firstCol ->LimitDamage( redispList, scReformatTimeSlice ); 

} 

Free ( ) ; 

} 

// because of reformatting nothing lands in here we will still return 
// true 



File: Work\CrtPrt\Stonehnd\Sccolumn .cpp Pg: 19 



Bool scColumn : :HasText ( ) const 
{ 

scContUnit* p; 

for ( p » GetStream(); p; p = p->GetNext( ) ) { 
if ( p->GetContentSize() > 0 ) 
return true; 

} 

return false; 

} 

/* does the text flow out the bottom of this container */ 

Bool scColumn : :MoreText ( ) const 
{ 

scTextline* txl; 

scContUnit* para; 

scCo 1 umn* ne i ghborCo 1 ; 

txl * GetLastlineQ ; 

if ( txl ) { 

para « txl->GetPara() ; 
if ( para->GetNext () ) 
return true; 

else if ( para->GetContentSize() > txl->GetEndOf fset ( ) ) 
% 3 return true; 

in > 

else if ( GetStream() ) { 
lL? neighborCol = NextWithLines() ; // text in subsequent columns 

% j if ( neighborCol ) 

j\| return true; 

i- ' 

'"■4 neighborCol » PrevWithLines ( ) ; 

a 

if ( neighborCol ) { 

txl « neighborCol ->GetLastline() ; 



3 



E - 



// this gets a little tricky, we are assuming that 
// the text cannot be reformatted into this or 
// some other column and therefore it hangs off the 
// end 

C3 para - txl->GetPara ( ) ; 

?=* if ( para->GetNext() ) 

% " return true; // another paragraph beyond last formatted line 

else if ( para->GetContentSize() > txl->GetEndOf fset ( ) ) 

return true; // more characters byyond last formatted line 
return false; //no more text 

} 

return true; // no text formatted and we have a stream 

} 

return false; 

} 

/* BBBBaBa»BsaBBaBSBSs»s;3a«BBBssaBBBBSBBSsBE3SBaBBSBSBBBBBBSBBasaBBBBBSB * / 

// determines line num in column of selection, assumes a sliver cursor 

short COLLineNum( scSelection* select ) 
{ 

scColumn* col; 
scTextline* txl; 
scTextline* countTxl; 
short 1 i neCoun t ; 

if ( select ) { 

col = se 1 ect- > f Mark. f Col; 
txl - select->fMark.fTxl; 
if ( col && txl ) { 

countTxl « col->GetFirstline() ; 
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for ( lineCount 

countTx 1 l^^JULL ; 

lineCount++„ countTxl » LNNext ( countTxl ) ) { 
if ( countTxl « txl ) 
return lineCount; 



> 



} 

} 

} 

return -1; 



/* determine the size of the damagerect for ImmediateRedisp depending 
* on the lines set 
»/ 

void scColumn : :LineExtents( scImmediateRedisp& immediateRedisp ) 
{ 

scTextline* txl; 
short count; 
scXRect colRect; 
scXRect rect ; 

colRect. Invalidate () ; 

txl - fFirstline; 

for ( count » 1; txl && count < immediateRedisp. fStartLine; count++ ) 
txl - txl->GetNext(); 

£3 if ( txl ) { 

txl->QueryExtents( rect ); 
^- colRect .Union ( rect ); 

fU txl * txl->GetNext () ; 

count++; 

} while ( txl && count O immediateRedisp . fStopLine ); 



} 



□ if ( colRect .Val id () ) { 

if ( fFlowDir.IsHorizontalQ ) { 

L colRect. xl - MIN( colRect. xl, 0 ); 

C3 colRect. x2 = MAX( colRect. x2, Width() ); 

j.3 else { 

* u colRect ,yl - MIN( colRect. yl„ 0 ); 

H colRect. y2 - MAX( colRect. y2, Depth() ); 

£3 } 
} 



immediateRedisp.flmmediateRect - colRect; 



/# sseBassssaosns»noBBBasBasaeaaoB»seBBBit9&etsBDBaaHaBsaceOBaBaBBBBaa«aaa * / 

/» draw the line of text in the selection */ 

void scColumn : :UpdateLine( sdmmediateRedisp& immediateRedisp, 

APPDrwCtx mat ) 

{ 

scTextline* paintTxl; 
short count; 
scMuPoint tx( 0 r 0 ); 

paintTxl * fFirstline; 

for ( count = 1; paintTxl I » NULL && count < immediateRedisp . fStartLine; count++ ) 
paintTxl - paintTxl ->GetNext () ; 

if ( paintTxl != NULL ) { 
do { 

paintTxl->Draw( mat, GetFlowdir( ) , tx ); 
paintTxl = paintTxl ->GetNext () ; 
count++; 

} while ( paintTxl !* NULL && count <■ immediateRedisp . fStopLine ); 

} 



! 
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/* seissDODDaBesDBBaBDDBoansnanooooaeaoBBaosanaBaaBnsaBaonocoBBBassoctiasa */ 

/* draw the portions of the column that intersect the 'damagedRec tangle' */ 

void scColuxnn : :Draw( const scXRect& dRect, 

APPDrwCtx dc, 
const scMuPoint* translation ) 

{ 

scTextline* txl; 
scXRect exRect ; 
scMuPoint tx( 0, 0 ); 

if ( translation ) 

tx +» *translation; 

for ( txl « GetFirstline() ; txl !« NULL; txl - txl->GetNext ( ) ) { 
txl->QueryExtents( exRect, 1 ); 
if ( exRect. Intersect ( dRect ) ) { 
txl->Draw( dc, fFlowDir, tx ); 
txl->Unmark( scREPAINT ); 

} 

} 

} 

/* BssBaBMtssaeaaoaaBBaBaaaaaBaBnadtaaseoaoBsaDoooBsaottoaeesBBBBBatiBeBBBB * / 

/* read from a text file */ 

void scColumn : :ReadTextFile( TypeSpec spec. 



f y scColumn* startCol ; 



APPCtxPtr ctxPtr, 
IOFuncPtr readFunc, 
scRedispList* redispList ) 



\1 
1. 1 



scCachedStyle: :SetFlowdir( GetFlowdir() ); 
^ scCachedStyle: :GetCachedStyle ( spec ); 

q startCol « (scColumn*)FirstInChain() ; 

!L if ( GetStream() ) 

lJ GetStream()->RemoveEmptyTrailingParas( GetFlowset() ); 

E; l if ( startCol ->GetStream() °« NULL ) 

^7 SetFlowsetStream( scStream: :ReadTextFile( spec, ctxPtr, readFunc, 0 ) ); 

f 8 - else 

f3 startCol ->GetStream () ->Append ( scStream: :ReadTextFile ( spec, ctxPtr, readFunc, 0 ) ); 

startCol ->Mark( scINVALID ); 

startCol ->LimitDamage ( redispList, scReformatTimeSlice ); /* reBreak */ 

} 

/* aBsanaBDsaasaaBaaeeaBaoaBaaaBaBBSsooBBSSBBaBJSBaaBaaaBaaBBaBaaaaaaBae * / 

/* paste APPText into a text container */ 

void scColumn: : Past eAPPText( stTextlmportExportSe appText, 

scRedispList* redispList ) 



{ 



scColumn* f irstCol ; 
TypeSpec nullSpec; 

if ( GetStreamO ) 

GetStream()->RemoveEmptyTrailingParas( GetFlowset() ); 

firstCol - GetFlowset () ; 

if ( If Stream ) 

f irstCol->SetFlowsetStream( scStream: : ReadAPPText ( appText ) ); 

else 

fStream->Append ( scStream :: ReadAPPText ( appText ) ); 
firstCol ->Mark( scINVALID ); 

firstCol ->L imi tDamage ( redispList, scReformatTimeSlice ); /* reBreak */ 
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} 

/* upon completion of reading data in from disk we search down the column list 
* finding the first columns in a chain and retabulate, re break and repaint 
*/ 

void scColumn :: Update ( scRedispList *redispList ) 
{ 

scColumn* flowset; 
scColumn* col; 

for ( col = GetBaseContextList ( ) ; col; col a col->GetContext () ) { 
if ( col->Marked( scINVALID ) && col->GetRecomposition () ) { 
flowset » (scColumn* ) col ->FirstInChain () ; 

scCachedStyle: :SetFlowdir( f lowset->GetFlowdir ( ) ); 

flowset->Limit Damage ( redispList, scRefortnatTimeSlice ); 

scColumn* p » flowset; 
for ( ; p; p = p->GetNext() ) 
p->Unmark( scINVALID ); 

} 

} 

} 

/* this is still a little dirty - needs to be cleaned up a bit */ 
£IK* reformat all columns containing ts */ 

;3/oid scColumn: :ChangedTS( lypeSpec theTS, 
\ ; 1 eSpecTask task , 

fy scRedispList* redispList ) 



t3t 



scColumn* aColH; 
scContUnit* p; 
scTextline* txl; 

scCachedStyle: :StyleInvalidateCache ( theTS ); 



S3 for ( aColH = GetBaseContextList ( ); aColH; aColH - aColH->GetContext ( ) ) { 
vj if ( aColH->GetCount() 0 ) { 

^ scCachedStyle: :SetFlowdir( aColH->GetFlowdir() ); 

|& 

fl P ■ aColH->GetStream() ; 

for ( ; p; p « p->GetNext( ) ) { 
* J if ( p->ContainTS( theTS ) ) { 

if ( !aColH->GetRecomposition() ) { 

if ( ( txl « p->GetFirstline() ) I- NULL ) { 
scColumn * colH; 

if ( ( colH - txl->GetColumn() ) I - NULL ) 
colH->Mark( scINVALID ); 

} 

gj.se 

aColH->Mark( scINVALID ); 

if ( task & eSCRetabulate ) 

p->Mark( scRETABULATE ); 
if ( task & eSCRebreak ) 

p->Mark( sc RE BREAK ); 
if ( task & eSCRepaint ) 

p->ForceRepaint ( OL, LONG_MAX ); 

} 

else { 

if ( task & eSCRetabulate ) 

p->Retabulate( theTS ); 
if ( task & eSCRebreak ) 

p->Mark( scREBREAK ); 
if ( task Si eSCRepaint ) 

p->ForceRepaint( OL, L0NGJ4AX ); 
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} 

} 

} 

if ( aColH->GetRecomposition() && aColH->GetStream() ) 

STRReformat( aColH, aColH->GetStream() , scReformatTimeSlice, redispList ); 
else { 

scSelection* select » aColH->FlowsetGetSelection() ; 
select->UpdateSelection( ); 

} 

} 

} 

} 

/* BBsnSBBSBBanBBBBnaBaBaaaaasaaBiaaaaBaeaaBaaaaaBaaaBaaBBaBBBaia&aaaaaBB * / 

/* search a column building a list of typespecs that are contained 
* in the column 
•/ 

void scColumn : :GetTSList ( scTypeSpecList& tsList ) const 
{ 

scTextline* txl; 

for ( txl « GetFirstline() ; txl; txl - txl->GetNext ( ) ) 
txl->GetTSList ( tsList ); 

} 

/* nBsascaDaaaeBBCBssaBBaseanaeitseaBBBSBDaasBtiaBeeotttscamBoosasaEeaosBttB * / 

tj/* determine the prev column with a line in it */ 

i. • 

ScColumn* scColumn : :PrevWithLines ( ) const 

i!St 

I y scColumn* col; 

i"* for ( col ■ GetPrevf); col ; col - col ->Get Prev ( ) ) { 
J" if ( col->GetFirstline( ) ) 

N return col; 

» } 

return 0; 

3 } 
IT 



■ determine the next column with a line in it */ 

f ^scColumn* scColumn : :NextWithLines ( ) const 

f«j scColumn* col; 

for ( col - GetNextf); col; col - col->GetNext ( ) ) { 
if ( col->GetFirstline( ) ) 
return col; 

} 

return 0; 



/* nBoaaaBaBSBfflBnnrnannaaaBsioiDannoccDBSBBBeBBaBBBBBaBaBBeBOBaBnaaBBsiECB * / 

/* return the last line in this column */ 

scTextline* scColumn :: Ge t Last line ( ) const 
{ 

scTextline* txl; 
scTextline* validLine ■ 0; 

for ( txl • fFirstline; txl; txl - txl->GetNext ( ) ) { 
if ( ltxl->Marked( sc INVALID ) ) { 

validLine - txl; 
// validLine->AssertValid() ; 
} 

} 

return validLine; 
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/* nBDaooodaoaonBaaBeeaanaaD e^^^^^H aasaeeattssacosaconDoaanDnoBDaaasB s^^^BTa W / 

/* mark all the paras containOT^ithin this container to be rebroken */ 

scContUnit* scColumn : :MarkParas ( ) 
{ 

scContUnit* firstPara; 
scContUnit* lastPara; 
scContUnit* para; 
scCo 1 umn * con ten t Co 1 ; 

firstPara « FirstPara(); 

if ( firstPara ) { 

// in this case the container has some lines 
lastPara » LastPara(); 

for ( para » firstPara; para; para - para->GetNext ( ) ) { 
para->Mark( scREBREAK ); 
if ( para — lastPara ) 
break; 

} 

} 

else { 

/* in this case the container has no lines, 

* we must try to find a neighbor that has 

* some lines, first we look backwards and then 

* we look forwards, we mark what we find and 

* see if they will reformat into the container 
»/ 

if ( !GetPrev() ) 

firstPara « GetStreamQ; 
else { 

yEJ contentCol » PrevWithLines ( ) ; 

if ( contentCol ) 
fU firstPara - contentCol ->LastPara( ) ; 

else { 

contentCol - NextWithLines ( ); 



CD 



if ( contentCol ) 

firstPara - contentCol->FirstPara() ; 

C3 > 

if ( i firstPara ) { 
Z_ /* this would be executed if no containers had lines 

C3 * attached to them 

.j */ 

B.I firstPara - GetStream(); 

^ J 

M } 

p if ( firstPara ) 
i~ firstPara->Mark( scREBREAK ); 

return firstPara; 



2^ 



/» BaaesoaonoBeaaeBaaaeBoaaaBasBDattaeBamasaaeaeasaneaoaBaoBOaesaaoaDi 

/* return the paragraph of the last line of text in this column */ 

scContUnit* scColumn :: LastPara ( ) const 
{ 

scTextline* txl « GetLastlxne( ); 

for ( ; txl && txl->Marked( scINVALID ); txl - txl->GetPrev( ) ) 
return txl ? txl->GetPara ( ) : NULL; 



// return the first valid paragraph of this column 

scContUnit* scColumn :: FirstPara ( ) const 
{ 

// if no previous column the first guy in the stream is 
// the first paragraph 
if ( IGetPrev() ) 
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return f Stream ? fSti^^^>First() : 0; 
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scColumn* prev » GetPrev(); 
scTextline* txl - 0; 
scContUnit* p * 0; 

// get last valid line in prev para, presumably 
// the container has been reformatted 

do { 

txl - prev->GetLastline() ; 
if ( !txl ) 

prev • prev->GetPrev( ) ; 
} while ( prev && !txl ); 

// get the paragraph of the last line, check to 
// see if the end of the line represents the end 
// of the paragraph, if it does go to the next para 
if ( txl ) { 

p « txl->GetPara() ; 

if ( txl->GetEndOffset () « p->GetContentSize( ) ) 
p * p->GetNext() ; 

} 

else 

p « f Stream ? fStream-> First ( ) : 0; 
return p; 



t DsstiDtiiiaaeaeDeesaassoaneoaDooansaoaoBasBaaBBnsoeoaaBaasaBetDs 

fpf* Delete excess lines in the column */ 

fj^oid scColumn: :DeleteExcessLines( scContUnit* para, 

scTextline* lastTxl, 



Bool testGetStrip, 
scCOLRefData& colReformatData ) 



l J scTextline* txl; 

g scTextline* nextTxl; 

,s Bool deleteLines - false; 

It J 

-J if ( lastTxl ) { 

IJ if ( ( txl - LNNext ( lastTxl ) ) 1- NULL ) 

L 7 deleteLines » true; 

■: > 

13 else if ( ( txl - GetFirstline() ) !- NULL ) { 



It E2 



if ( para « NULL || para -> Get Count ( ) <= txl->GetPara ( ) ->GetCount ( ) ) { 
if ( ! testGetStrip ) 

deleteLines - true; 
else { 

scL INERe f Dat a 1 i neDa ta ; 



scCachedStyle: :SetFlowdir( GetFlowdir() ); 
TvpeSpec ts - txl->SpecAtStart ( ) ; 
scCachedStyle: :GetCachedStyle( ts ); 

lineData. f Org - txl~>GetOrigin ( ) ; 

lineData . f Measure <■ txl->GetMeasure ( ) ; 

lineData.fLogicalExtents - scCachedStyle : :GetCurrentCache () .GetLogicalExtents ( ); 
lineData. f InitialLead .Set ( scCachedStyle: :GetCurrentCache ( ) . GetComputedLead ( ) „ scCac 
hedStyle: :GetCurrentCache ( ) .GetFlowdir ( ) ); 

if ( !GetStrip( lineData, eStartCol Break, colReformatData ) ) 
/* the first line will not fit, delete them */ 
deleteLines » true; 

} 

} 

} 



if ( deleteLines ) { 

Mark( scREPAINT ); /* if we delete we need to repaint */ 
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for ( ; txl; txl - ne^Bl ) { 

nextTxl - txl->Ge^P5t ( ) ; 

txl->Delete( colReformatData. fLineDamage ); 

} 



} 

} 



/* aDneooDoaDaDDonoesnssooQDnoDeottDDaaDaaiiaaBeooaBDDnnaaDnOQaBDBBBiKiBaB */ 

void scColumn : :SetFlowsetStream( scStream* cu ) 
{ 

scColumn* col; 

for ( col = (scColumn*)FirstInChain() ; col; col ° col->GetNext () ) 
col->SetStream( cu ); 

} 

/* DOBOODnaoBDBaaiineaonoeantiooaanDaQaaonBonstisnBaaoDniioanaisooaDaBaDDOBa » / 

/• free the stream from the column chain */ 

void scColumn : : FreeStream ( ) 
{ 

if ( f Stream ) { 

f Stream- >STRFree ( ) ; 
SetFlowsetStream( 0 ); 

} 

} 

force the rebreaking of this column »/ 

f^oid scColumn : :Rebreak ( scRedispList* redispList ) 

fj // save the recomposition state 

^3 Bool saveRecomposeFlag « GetRecomposition ( ) ; 



"si 



SetRecomposition ( true ) ; 



|H Rebreak2( redispList ); 

^ // restore the saved value 

^ SetRecomposition ( saveRecomposeFlag ); 

U\ Unmark( sc INVALID ); 

£ maaBaaHB&sesaBDaBBsnBaBBBeBBaBeBanaBaaBBBnfitsBBBaoaaaDoa * / 

f~/* rebreak of this column */ 

void scColumn : :Rebreak2( scRedispList* redispList ) 
{ 

Mark( scINVALID ); 

if ( DamOpen( ) ) 

LimitDamage( redispList, scReformatTimeSlice ); 

} 

/* give the column a new width & depth, rebreak and return damaged areas */ 
/* the column measure and/or depth has changed respond accordingly 

« OBVIOUS OPTIMIZATIONS 

* if depth increases just add stuff 

*/ 

void scColumn :: Resize ( MicroPoint width, 

MicroPoint depth, 
scRedispList* redispList ) 

{ 

switch ( GetShapeType ( ) ) { 
case eRgnShape: 
case eVertShape: 

SetSize( width, depth ); 

return; 
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case eNoShape: 

SetSiz©( width, 3^th ); 

break; 
case e Vert Flex: 

SetWidth( width ); 

break; 
case eHorzFlex: 

SetDepth ( depth ) ; 

break; 
case eFlexShape: 

SetSize( width, depth ); 

break; 

} 

Mark( scINVALID ); 

L imit Damage ( redispList, scReforxnatTimeSlice ); 

} 

void scColumn: : Resize ( const scSize& newSize, 

scRedispList* redispList ) 

{ 

switch ( GetShapeType ( ) ) { 
case eRgnShape: 
case eVertShape: 

SetSize( newSize ); 
return ; 
case eNoShape: 

SetSize( newSize ); 
break; 

i.3 case eVertFlex: 

SetWidth( newSize .Depth ( ) ); 
break; 
case eHorzFlex : 

SetDepth ( newSize .Width ( ) ); 
break; 
case eFlexShape: 
"'^ SetSize( newSize ); 



1*1 

r y 

s ; I 



break; 

} 

Mark( scINVALID ); 

LiraitDamage( redispList, scReformatTimeSlice ); 



u 

s ^* ssaaepsdBBBnooRnDooaaBaBBCSBoaBBdBDasaei 

^/* ENUMERATE THE COLUMN AND ITS STRUCTURES 



□ 



f 8 ! 

ht3 



void scColumn: : Enumerate ( long& obj Enumerate ) 
{ 

scTBObj : Enumerate ( objEnumerate ); 

// if the column has no previous members, that is it is 
// the first column of a set of linked columns, enumerate 
// the paragraphs and their text 

// 

if ( !Prev() && f Stream ) 

fStream->DeepEnumerate( objEnumerate ); 



/• return the size of this column for storage purposes, the text stream 

* is always stored with the first column, subsequent columns store 

* just the container itself, (this may present problems for paging of text 

* in multipage documents) 
»/ 



void scColumn :: Externa ISiz© ( long& exSize ) 

{ 

scContUnit* para; 
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eKSize - sizeof (scColumn) 

if ( !GetPrev() ) { 

for ( para ° GetStreara(); para; para = para->GetNext ( ) ) 
exSize +■ para->ExternalSize() ; 

} 

switch ( GetShapeType ( ) ) { 

case eVertShape : 
#ifdef ColumnPolygon 

exSize +- POLYExternalSize( fVertH, fShapePieces ); 
#endif /* ColumnPolygon •/ 

break ; 

case eRgnShape: 

exSize +- R(SJExternalSize( fRgnH, fShapePieces ); 
break; 

} 

exSize +» sizeof ( scTBObj ); /» NULL OBJECT */ 

} 

void scColumn: : ZeroEnumerat ion ( ) 
{ 

ZeroEnumQ ; 

if ( !GetPrev() ) 
^ GetStream()->STRZeroEnumeration() ; 

[ ! 

i i 
*; ss 

eyfH oaoonosnaaDsaoesnDaBiiBtsBanaBBDseBaenseaaaaamsnasBanossoaeaBeosnesnnQ */ 

determine extents of the column in its local coordinates «/ 

lU 

[void scColumn :: Compute I nkExtents ( ) 

^ ^ scXRect 1 i neEx tents ; 
£3 scTextline* txl ; 

°_ /» clear rect »/ 

H f I nkExtents. Set ( 0, 0, 0, 0 ); 

^■4 /* add each line to the current extents */ 

for ( txl = fFirstline; txl; txl « LNNfext( txl ) ) { 
t 7 txl->QueryExtents( lineExtents, 1 ); 

if ( lineExtents. Width () <» 0 ) 
11 lineExtents. x2 » lineExtents .xl +1; 

flnkExtents .Union ( lineExtents ); 

" } 
} 

/* determine extents of the column in its local coordinates */ 

static void COLQueryMarginsVertical ( const scColumn* col, 

scXRect & margins, 
int shapeType ) 

{ 

scTextline «txl; 
scMuPoint translate ; 
TypeSpec spec ; 
scXRect xrect2; 

switch ( shapeType ) { 
case eHorzFlex: 

txl - col->GetFirstline( ) ; 

if ( txl ) { 

margins. Set( txl->GetOrigin() .x, 
txl->GetOrigin() .y, 

txl->GetOrigin() .x + CSf irstLinePosition ( col->GetAPPName () , txl->S 

pecAtStart ( ) ) , 

col->Depth() ); 
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for ( tx^» col->GetFirstline() ; txl; txl - LNNext ( txl ) ) { 
xrect2.Set( txl->GetOrisin () ,x„ 
txl->GetOrigin() .y, 

txl->GetOrigin() .x + CSf irstLinePosition ( col->GetAPPName ( ) „ tx 

l->SpecAtStart( ) ), 

col->Depth() ); 
margins. Union ( xrect2 ); 

} 

txl ° col->GetLastline( ); 
txl->MaxLead( spec ); 

xrect2.Set( txl->GetOrigin ( ) .x - CSlastLinePosition ( col->GetAPPName ( ) , spec ), 
txl~>GetOrigin( ) ,y„ 
txl->GetOrigin() .x, 
col->Depth() ); 

margins. Union ( xrect2 ); 

} 

break; 

case eFlexShape: 

txl » col->GetFirstline() ; 
if ( txl ) { 

margins. Set( txl->GetOrigin ( ) .x„ 
txl->GetOrigin() .y, 

txl->GetOrigin() .x + CSf irstLinePosition ( col->GetAPPName( ) , txl->S 



pecAtStart ( ) 



txl->GetMeasure () ); 



3 for ( txl - col->GetFirstline() ; txl; txl - LNNext ( txl ) ) { 

s xrect2.Set( txl->GetOrigin() .x, 

1 * 4.»i_\fl*+n^«^/\ » 



txl->GetOrigin() .y. 



W txl->GetOrigin() .x + CSf irstLinePosition ( col->GetAPPName() , tx 

J->SpecAtStart( ) ), 

j I txl->GetMeasure() ) ; 

~ margins. Union ( xrect2 ); 

* } 

txl » col->GetLastline( ); 
- txl->MaxLead ( spec ); 

^ xrect2.Set( txl->GetOrigin() .x - CSlastLinePosition ( col->GetAPPName ( ) „ spec ) , 

J txl->GetOrigin() ,y, 

j txl->GetOrigin() .x, 

7 txl->GetMeasure() ); 

3 margins .Union ( xrect2 ); 

3 } 

break ; 

case eVertFlex: 

margins. Set ( 0, 0, col->Width ( ) , 0 ); 

for ( txl » col->GetFirstline() ; txl; txl - txl->GetNext ( ) ) 

margins. y2 » MAX( txl->GetOrigin() .y + txl->GetLength() , margins. y2 ); 
break ; 

} 

} 



void scColumn : :QueryMargins ( scXRect& margins ) const 
{ 

scTextline *txl; 
scTextline *nextTxl ; 
TypeSpec spec ; 

if ( GetFlowdir() .IsVertical () ) { 
switch ( GetShapeType ( ) ) { 
case eHorzFlex: 
case eVertFlex: 
case eFlexShape: 

COLQueryMarginsVertical ( this, margins, GetShapeType ( ) ); 
return; 
default : 
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break; 

} 

} 

switch ( GetShapeType ( ) ) { 
case eFlexShape: 
case eVertFlex: 

if ( GetShapeType ( ) «» eFlexShape ) 

margins. Set ( 0, 0, 0, 0 ); 

else 

margins. Set ( 0, 0, Width(), 0 ); 

/» add each line to the current extents »/ 
for ( txl = GetFirstline( ); txl; txl « nextTxl ) { 

if ( GetShapeType ( ) ~ eFlexShape ) 

margins. x2 « MAX( txl->GetOrigin() .y + txl->GetLength() , margins. x2 ); 

nextTxl - LNNext ( txl ); 
if ( I nextTxl ) { /• last line •/ 

margins. y2 - MAX( txl->GetOrigin ( ) ,y, margins. y2 ); 

/« this makes vertical flex columns the size 
* of the text baseline plus whatever amount 
« of text the application wants to add to the bottom 
*/ 

MicroPoint maxlead « txl->MaxLead ( spec ); 
if (spec.ptr()) { 

Q margins. y2 +- CSlastLinePosition ( GetAPPName ( ) „ spec ); 



C 



'|f margins. y2 +«= txl->GetVJOf fset ( ) ; 

} 

u > 

break; 

il case eHorzFlex: 



3 



margins. Set ( 0, 0, 0, Depth () ); 



""4 for ( txl » GetFirstlinef ); txl; txl = txl->GetNext ( ) ) 

|J margins. x2 » MAX( txl->GetOrigin() .x + txl->GetLength () , margins. x2 ); 

s7 break; 

£3 case eVertShape: 

■fj case eRgnShape: 

case eNoShape: 

margins. Set ( 0, 0, Width(), Depth () ); 

break; 



/* ooaassseoeaBSasasaBcncEDaaoBannBoanaoBnaasnDooeassnaanaaeBaBBsnnDeBs * / 

/* determine maximum possible depth of the column in its local coordinates */ 

void scColumn : :QuerySize ( scSize& size ) const 
{ 

switch ( GetShapeType ( ) ) { 

#ifdef ColumnPolygon 

case eVertShape: 

size. Set Dept ( POLYMaxDepth ( fVertH ) ); 
break; 

#endif /• ColumnPolygon «/ 

case eRgnShape: 
{ 

scXRect xrect; 



RGNGet Ex tents ( fRgnH, xrect ); 

// this is open to some discussion 
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// over w^^^As correct 

s ize.SetWidth (Effect ,x2 ); 

size . SetDepth ( xrect ,y2 ) ; 

} 

break; 

case eVertFlex: 
case eFlexShape: 

size.SetWidth( Width () ); 

si ze. SetDepth ( L0NGJ4AX ); 

break; 

default: 

case eHorzFlex: 

case eNoShape: 

size - GetSize ( ) ; 

break ; 



ssBaaoeeBaaaaaaBDatsciBaacsaBaaBtttnaaoaottaDnoeaaaaonatiflnaneoaDODBsesseD * / 

/* Determine maximum depth of text from top (or from right in vertical) */ 

void scColumn: :QueryText Depth ( MicroPoint& depth ) const 
{ 

switch ( GetShapeType ( ) ) { 
case eVertShape: 

depth - POLYMaxDepth ( fVertH ); 
.peg break; 

\J case eRgnShape: 

rf\ depth - RGNMaxDepth ( fRgnH ); 

l\z break; 

iU 

^3 case eVertFlex: 

y if ( GetFlowdir() .IsVertical () ) { 

I : depth - TextDepth ( ) ; 

'i? break; 

C3 > 

- case eFlexShape: 

^ depth « L0NGJ4AX; 

^~ break; 

s 4 

[J case eHorzFlex: 

s"7 if ( GetFlowdir() .IsVertical () ) { 

l~ depth = LONG_MAX ; 

£3 break; 
£1 } 

default: 

case ebfoShape: 

depth - TextDepth (); 
break ; 

} 

} 

/* osnaansciiaaoonsBoaoosaaiaoDaoaossnanDBBnDsaasnaaBORaannasitinBBiBiiicicmseo •* / 

MicroPoint scColumn :: TextDepth ( ) const 
{ 

return GetFlowdir{) .IsHorizontal () ? Depth () : Width (); 

} 

static Bool COLLinkSetContains( scColumn * collH, 

scColumn * col2H ) 

{ 

scColumn * prevColH; 
/* backup */ 

for ( ; collH && (prevColH = col lH->GetPrev() ) I ■ NULL; 
collH « prevColH ) 
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/* renumber */ 
for ( ; collH; collH - collH->GetNext() ) { 
if ( collH " col2H ) 
return true; 

} 

return false; 



d scColuran: :Link( scColumn* col2, 

Bool reformat, 
scRedispList* redispList ) 

scSelection* select2 - 0; 

// make sure the existing links make sense 
raise_if ( col2->GetPrev() , scERRstructure ); 

raise_if( COLLinkSetContains( this, col2 ), scERRstructure ); 

/* mark the paras in each to be rebroken */ 
MarkParas( ); /* maybe we should only mark the last one «/ 

col2->MarkParas( ) ; 

col2->FlowsetSetFlowdir( GetFlowdir() ); 

if ( FlowsetGetSelectionQ && I col2->GetSelection ( ) ) 

; //we are cool 

else if ( !FlowsetGetSelection() && col2->GetSelection ( ) ) { 
// transfer selection 

select2 - col2~>FlowsetGetSelection() ; 

col2->FlowsetRemoveSelection() ; 

FlowsetSetSelection ( select2 ); 

} 

else { 

select2 « col2->FlowsetGetSelection ( ) ; 
col2->FlowsetRemoveSelection() ; 
delete select2, select2 « 0; 

} 

// do the actual link 
scTBObj : :Link( col2 ); 

/* patch the stream (s) 
» if either column has a stream we can deal with it easily, 
* if both have it, append stream2 to streaml 
*/ 

if ( GetStream() && I col2->GetStreara( ) ) { 
/* coll has a stream */ 
Se tF 1 owsetS t ream ( GetS t ream ( ) ) ; 

} 

else if ( col2->GetStream() && !GetStream() ) { 
/* col 2 has a stream */ 
SetFlowsetStream( col2->GetStream( ) ); 

} 

else if ( GetStream() && col2->GetStream( ) ) { 
// both contain streams 
Ge tS t ream ()-> Append ( col2->GetStream( ) ); 
SetFlowsetStream( GetStream() ); 

} 

else 

/* no column has a stream */; 

// renumber the streams 
Renumber ( ) ; 

// patch selection 

if ( reformat ) { 

Mark( scINVALID ); 

LimitDamage( redispList, scReformatTimeSlice ); 
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} 

} 

/• OBBBBSBBBBBnB8asBBaBOEta»BBBBBaBBBasBnBssBBSBaBaBBB8B»BSBBSB»aBBBB3aa »/ 

void scColumn: :Unlink( scRedispList* redispList ) 
{ 

scColumn* firstCol; 
scXRect lineDamage; 

// mark the paras in the container beings unlinked to be rebroken, 
// since they are losing their home* they definately need to 
// be rebroken 

// 

firstCol => GetPrev(); 
if ( firstCol ■=» NULL ) 
firstCol = GetNext(); 

if ( firstCol ) { 
MarkParas() ; 

FreeLines( true, lineDamage ); /* deletes lines */ 

if ( redispList ) 

redispList->AddColumn( this, lineDamage ); 

scTBObj : :Unlink( ); 
SetFlowsetStreara( 0 ); 

f irstCol->Renumber( ); 
C3 firstCol ->Mark( scINVALID ); 

^3 firstCol ->LimitDamage( redispList, scReformatTimeSlice ); 



} 



ru 

l /«• BBB»BBBaBBSSBSaBBBBBBBasasBBBBBBBBBBBBBSBBBBBBSBBBBBBBBBBS3nC3BBBetSXBBa 4 

I ; i 

^oid scColumn: :BreakCha in ( scColumn* col2 ) 

p raise_if( GetNext() !* col2, scERRstructure ); 

■ if ( (JetStream () ) 

C=* GetStream()->STRDeformat () ; // remove any layout information 

^ ! 
u 



/» 



// break the link 
SetNext( 0 ); 
col2->SetPrev( 0 ); 

co!2->SetFlowsetStream( 0 ); // set the stream in col 2 to nothing 



void scColumn: :InvertEx tents ( HiliteFuncPtr func, 

APPDrwCtx mat ) 

{ 

scTextline* txl; 

for ( txl = GetFirstline( ); txl; txl = txl ->GetNext ( ) ) 
txl->InvertExtents ( func, mat ); 

} 

/* BnfBBBBBBBBBaBBaaBBBBBBaBBBaBBBBBBSBBaBBBBBBaaaBBaaSBBBBBS: 

/» set the flow direction of the container */ 

void scColumn : :FlowsetSetFlowdir ( const scFlowDir& flowDir ) 
{ 

scColumn* col » GetFlowset () ; 

for ( ; col 1-0; col - col->GetNext ( ) ) { 
if ( col->GetFlowdir() 1= flowDir ) { 
col->SetFlowdir( flowDir ); 
col->Mark( scINVALID ); 
scStream* str - col->GetStream( ) ; 
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if ( str ) 

col ->GetStre3B^->STRMark ( scRETABULATE \ scREBREAR ); 

} 

} 

scCachedStyle: :SetFlowdir( flowDir ); 
GetFlowset () ->Limit Damage ( 0, scRe forma tTimeS lice ); 

} 



void scFlowDir: :SetFlow( eCommonFlow cf ) 
{ 

if ( cf — eNoFlow ) { 

linedir_ » elnvalidFlow; 
glyphdir_ « elnvalidFlow; 

} 

else if ( cf « eRomanFlow ) { 
linedir_ = eTopToBottom; 
glyphdir_ - eLeftToRight; 

} 

else if ( cf eVertJapanFlow ) { 
linedir_ - eRightToLeft ; 
glyphdir_ » eTopToBottom; 

} 

else if ( cf — eBidiFlow ) { 
linedir_ «= eTopToBottom; 
glyphdir_ - eRightToLeft; 

} 

f\ 

jebommonFlow scFlowDir: :GetFlow( ) const 

%2 if ( linedir_ »- eTopToBottom && glyphdir„ « eLeftToRight ) 
£ j return eRomanFlow; 

else if ( linedir_ «« eRightToLeft && glyphdir_ « eTopToBottom ) 
"-4 return eVertJapanFlow; 

£3 else if ( linedir_ -« eTopToBottom && glyphdir_ eRightToLeft ) 
s return eBidiFlow; 

return eNoFlow; 

H 

5 /?* 0BasBaBnaaaBBafissBaBaB9aBanasBa8BBBBeesDBttBaBsiaaBSBeBBas8BaBCDaBBSBa * / 

HiE SCDEBUG > 1 

C3 

?foid scColumn: :DbgPrintInfo( int debugLevel ) const 



); 



SCDebugTrace ( debugLevel. scString( "\nSCC0LUMN 0xS£08x - firstline 0x2G8x\n" ), this, fFirstline 
scTextline* txl; 



for ( txl » fFirstline; txl; txl =■ txl->GetNext ( ) ) 
txl->DbgPrint!nfo( debugLevel ); 



} 

/* BBBBBSI 



#endif 
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.# m 



oDaoDaaesaaeBBitBeBBsnaaae 

File: SCMACINT.H 

SHeader: /Projects/Toolbox/ct/SCMACINT.H 2 5/30/97 8:45a Wmanis $ 
Contains: Defines for MacIntosh/MPW compile 
Written by: 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

BoasDnsBQaottaigeaiiooaeBaesBamaisotsiiaBaeiBBaeaBaBaBnttOBanadaitBiisDeiaQDtf/ 



#ifndef _H_SCMACINT 
#define _H_SCMACINT 

/« 

xs * Header configuration. To determine if we are using universal headers load types. h and then 
*J» look to see if it has included the universal headers <ConditionalMacros ,h> file. 

^include <Types.h> 

fdiifdef _C0NDITI0NALMACR0S_ 
fjdefine US EUN I VE RSALHE AD E RS 1 
s #else 

*Sdefine USEUNIVERSALHEADERS 0 

]'4endi£ 

r ™3 

l#i£ USEUNIVERSALHEADERS && ! defined (USESROUTINEDESCRIPTORS) 

^define USESROUTINEDESCRIPTORS 1 

^#endif 

\S* SYSTEM INCLUDES */ 
^include "StdDef.h" 

b 

fj/#include <0SUtils.h> 
" ✓'/tfinclude <Events.h> 

//^include <limits.h> 

#include <string.h> 

//^include <math.h> 



// memory model stuff - for intel only 
#define scNEAR 
^define scFAR 
#define SChuge 

//volatile is not supported by MPW 
#define volatile 



#define SCTickCount ( ) 
#define SCSysBeep (duration) 

#endif /« JiJSCMACINT.H */ 



(TickCount() ) 

(SysBeep( (int) (duration) ) ) 
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uchar* Bu fSet_REAL ( 



eByteOrder 

const uchar* BufGet_REAL( const uchar 

REAL& 

eByteOrder 



rbuf [12], 
r, 

desiredByteOrder ) 
rbuf [12], 
byteOrder ) ; 



void 



void 



void 



void 



* lend if 



// the follow are not good for 
// writing out alot of data, but for a long 
// here are there they are goo 
ReadLong( longSc, 

APPCtxPtr, 

IOFuncPtr, 

eByteOrder ) ; 

// a quick way of writing out a long 
WriteLong( long, 

APPCtxPtr, 
IOFuncPtr, 
eByteOrder ) ; 

ReadBytes( uchar*, 

APPCtxPtr, 
IOFuncPtr, 
long ); 

WriteBytes( const uchar*, 
APPCtxPtr, 
IOFuncPtr, 
long ); 



* ^ 



u 
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/« 



File: pfileio.h 

$Header: /Proj ects/Tool box/ct/SCF ILEIO .H 2 5/30/97 8:45a Wmanis $ 
Contains: Independent byte order calls. 
Written by: Coletti 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef JLPFILEIO 
^define JLPFILEIO 

#include "sctypes.h" 



typedef enum eByteOrders { 
C3 kNoOrder - 0, 

klntelOrder - 1, 
!= kMotorolaOrder - 2 
£ ,r } eByteOrder; 
!y 

Hypedef uchar REALBUF [ 12] ; 
typedef uchar Byte0rderStr[8] ; 

H 



^define kShortBufSize 
£ #def ine kLongBuf Size 

£3 

s uchar* 



Li 



-'tonst uchar* 



BufSet Jyteorder( uchar [] ); 
BufGetJ>yteorder ( const uchar[], short* ); 



?3 uchar* 



const uchar* 



uchar* 



const uchar* 



uchar* 



const uchar* 



BufSet_char( uchar* 

const uchar* 

size_t 

eByteOrder 

BufGet_char( const uchar* 
uchar* 
size_t 
eByteOrder 

BufSet^short ( uchar 
ushort 
eByteOrder 

BufGet_short ( const uchar 
ushort& 
eByteOrder 

BufSet„long( uchar 
ulong 

eByteOrder 

Buf Get Jong ( const uchar 
ulong& 
eByteOrder 



dstbuf , 
srcbuf , 
bytes, 

desiredByteOrder ) ; 

srcbuf, 
dstbuf, 
bytes, 

byteOrder ) ; 

sbuf [2], 
s, 

desiredByteOrder ) ; 

sbuf [2], 
ps, 

byteOrder ) ; 

pbuf [4], 
1, 

desiredByteOrder ) ; 

lbuf [4], 
Pi* 

byteOrder ) ; 
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File: 



SCGLOBDA.C 



SHeader: /Projects/Toolbox/ct/SCGLOBDA.CPP 2 



5/30/97 8:45a Wmanis $ 



Contains: Global data, which should be gone soon! 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scexcept.h" 

#include <string.h> 
#include "scmem.h" 

#include "scglobda .h" 

#include "scparagr.h 11 
[^include "sccolumn .h" 
."^include "sctextli .h" 

C^scDEFINE_RTTI ( scTBOb j , scObject ); 

f&cDEFINE_RTTI( scColumn, scTBObj ); 

;scDEFINE_RTTI ( scTextline, scTBObj ); 

^cDEFINE — RTTI ( scContUnit, scTBObj ); 

^iScDEFINE_ABSTRACT_RTTI ( scAbstractArray, scObject ); 
|^cDEFINE_RTn( scHandleArray, scAbstractArray ); 
"IbcDEFINE^RTn ( scMemArray, scAbstractArray ) ; 
J scDEFINE_RTTI ( scCharArray, scHandleArray ); 



8 char «SCS_Copyright - "Copyright (c) 1988-1994 Stonehand Inc. All rights reserved. 



^ireakStruct gbrS; 

£=§lobalColumnStruct ggcS ; 

^ScStreamChangelnfo gStreamChangelnfo; 

a : 




gHiliteSpaces; // hilite trailing spaces at the end of a line 



long 



scLoglinitsPerPixel - 20; 
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void 



scSpecRecord* 
scLEADRefData 
scXRect 
scAngle 



scMaxLi^Hfls ( ) 

fSpecRec ( 0 )„ 
fObligue( 0 ) {} 

Init( void ) 

{ fSpecRec - 0; fMaxLead. Init ( scFlowDir( eRomanFlow ) ) 

fMaxInkExtents.Set ( 0, 0, 0, 0 ); fOblique « 0; } 
fSpecRec; 
fMaxLead ; 
f MaxI nkExtents ; 
fOblique; 



enum eBreakEvent { 
start_of_line„ 
in-line, 

measure_exceeded , 
end^of^stream^reached 

}; 

typedef eBreakEvent (*BrFunc) ( void ); 



class BreakStruct { 
public: 



%3 



id 



void 

BrFunc» 
CandBreak* 



BreakStruct ( ) ; 
"BreakStruct ( ) ; 

Init(); 

breakMach ; 
candBreak ; 



// CURRENT BREAK POINT STATE 
CandBreak cB ; 

scMemHandle brkLineValsH; 

// a list of max line vals for each spec on the line */ 
scMaxLineVals* fMaxLineVals; 

// zero this and make sure it stays that way */ 
f ZeroMaxL i neVa 1 s ; 



scMaxLineVals 

CharRecordP 

TypeSpec 

scSpecRecord 

MicroPoint 
MicroPoint 
MicroPoint 
GlyphSize 

MicroPoint 
MicroPoint 
MicroPoint 



MicroPoint 

GlyphSize 

MicroPoint 



gStartRec; 

pspec„; 

theSpecRec; 

tmpMinGlue; 
tmpOptGlue; 
tmpMaxGlue; 
letterSpaceAdj ; 

originalMeasure; 
desiredMeasure ; 
hyphena t i onZone ; 

/* length of last line set, for ragged setting */ 

lastLineLen; 

justSpace; 

theLineOrg; 



/» space set by character indent */ 
MicroPoint charlndent ; 

MicroPoint - minRelPosition; 

/* we need local values of this in case 
* the spec changes on the line 
*/ 

MicroPoint brkLeftMargin; 
Mi croPo i n t brkRi gh tMarg in; 
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Pg: 3 



MicroPoint 


totalTrai 1 ingSpace ; 








long 


theLineCount ; 








Bool 


f irstGlue; 








Bool 


f irstBox; 








Bool 


allowHyphens; 








Bool 


allowJustif ication; 








Bool 


fNoStartline; 


/* 


true if previous char was 


»/ 






/* 


starting punctuation 


»/ 


MicroPoint 


fLastHangable; 


/» 


width of last character that was 


hangable 


short 


numTargetChars ; 


/« 


num target chars rubi applied to 


*/ 


short 


lineHyphenated; 









/* this the setting for the line based upon 

* the first spec found on the line or a quad 

* character 
»/ 

eTSJust effect iveRag; 

/•if the column has horz flex we 

* fit all the line flush left and 

* then reposition all the lines 
»/ 

eTSJust colShapeRag ; 



kJ scColumn 



•theBreakColH; 



fli 



DropCapInfo 
MicroPoint 



dclnfo; 

dcLastBaseline; 



/* true if this line contains a drop cap */ 
Bool dcSet ; 



s 

£3 



/* we found a character indent char on this line •/ 
Bool f oundCharlndent ; 



13 
C3 



iqlass Global Co lumnStruct { 
'public: 

GlobalColumnStruct ( ) 
{ 
} 

"GlobalColumnStruct ( ) 
{ 
} 

TypeSpec de f au 1 tSpec ; 

this is the current column we are breaking in 
scColumn* theActiveColH; 

}; 

/»••••**•••••«*••«•«»**•••*•*«••*•««*•**•••••••**«*•••••»««« 



extern BreakStruct 
extern GlobalColumnStruct 
extern scStreamChangelnfo 



gbrS; 

srgcs; 

gStreamChangelnf o ; 



extern Bool 



gHiliteSpaces; // hi lite trailing spaces at the end of a line 



#endif /* _H_SCGLOBDA 
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,.. — . #,... 



Pg: 1 



5/30/97 8:45a Vftnanis $ 



File: SCGLOBDA.H 

$Header: /Projects/Too lbox/ct/Scglobda .h 2 
Contains: Global data. 
Written by: Lucas 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H_SCGLOBDA 
#define _JtJ3CGL0BDA 

#ifdef SCMACINTOSH 

#pragma once 
#endif 

Ciinclude "sctypes.h" 
^finclude "scselect .h" 
l#include "scsetjmp .h" 
: 7y#i nc 1 ude " scva 1 ue . h " 
r Wi nc 1 ude " scspcrec . h " 
%S include "screfdat.h" 
^ ^include "scparagr.h" 



±J* FOR USE IN THE LINE BREAKER */ 



|;Class CandBreak { 
a public: 
;I long 
C3 long 
£1 long 



breakCount; /* the count */ 

startCount; /* stream count at start of line »/ 
streamCount; /* stream count from start of this line */ 



ushort 


wsSpaceCount ; 


/* 


ushort 


spaceCount; 


/* 


ushort 


tra i 1 i ngSpaces ; 


/» 


ushort 


chCount ; 


/» 


ushort 


fillSpCount; 


/* 


int 


lineVal ; 


/» 


eBreakType 


break Val ; 


/* 


MicroPoint 


minGlue; 


/* 


MicroPoint 


optGlue; 


/* 


MicroPoint 


maxGlue; 


/* 


MicroPoint 


curBox ; 


/* 


MicroPoint 


fHangable; 


/* 


CharRecordP 


theChRec; 


/» 


short 


specChanged; 


/* 


TypeSpec 


spec; 


/* 


scSpecRecord "specRec; 






CandBreak ( ) ; 




void 


Init(); 





}; 



CandBreak& operator- ( const CandBreak& ) ; 



class scMaxLineVals { 
public : 
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/* 



File: SCHRECT.C 



• 



$Header: /Projects/Toolbox/ct/SCHRECT.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: 

This file duplicates in high res rectangles the 

'Calculations on Rectangles' described in Inside MAC 1-174 

Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "sctypes.h" 
Clif defined ( J4SCJ/ER ) 

^3 ^pragma warning (disable: 4244) // disable - int conversion 

^'^endif 

i/s* BSSBanaesBBBBBaBBaDanBsansassBBSSBSssBessBBaeosasossBssssaseaoaecBss #/ 
5 /£» oDOaaooacaronnaccooa CMUPOINT BnoeoBaocDaBBoaoetDanooaBaonoomc »/ 

*,/» aaaaaBOBBBBBBBaBSSBBBBBBBBBasBBBBBaBBBBBBaBSBBaaaaBBaaaBBBBBaBBBBaBB »/ 
/£» BSBSSSBBBSSaBBSBBOBSBSSSSSBBSaaCBBBBSeaBSaSBBBaasaeSSaBSBBOtSBBBasasa »/ 

U 

void scMuPoint: :FourthToThird( MicroPoint w ) 

MicroPoint xPrime, 
*j yPrime; 

hi 

£7 scAssert( x 1- klnvalMP j| y !« klnvalMP ); 

C3 xPrime « y; 
?g yPrime - w - x; 
scf x * xPrime; 

y - yPrime; 

} 

/» BaBBsaaBBBSBBBBSBBBBSBBBBaBSBBBaBBBBBBBaaBBeBBBBsaaBaaBBaaaaaaBBaaBaaB <• / 



void scMuPoint : :ThirdToFourth( MicroPoint w ) 
{ 

MicroPoint xPrime, 
yPrime ; 

scAssert( x !« klnvalMP | | y ! = klnvalMP ); 

xPrime - w - y; 
yPrime « x; 
x » xPrime; 

y - yPrime; 

} 

/» aeaaaBaaBBaBBBaaaaBaaaaBaBaaaaaBBaaaBaaaaamaaaBBsaBoaaataasBBaBaBBaaBffla */ 
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File: MEM.C 

SHeader: /Projects/Toolbox/ct/SCMEM.CPP 2 5/30/97 8:45a Vtoianis $ 
Contains: Memory management routines based on our own heap managers 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

^include "scmem.h" 

#if ! useSMARTHEAP 

#include <malloc.h> 

^truct MacHandl e { 

4=1 const void* f Block; 

i i int f Count; 



MacHandl e( scMemHandle ptr ) : 
iy fBlock( (char*)ptr + sizeof{ MacHandle ) ), 

f Count ( 0 ){} 



void* Lock( void ) { scAssert( f Count >» 0 ); fCount++; return (void*) f Block; } 
^ void Unlock ( void ) { scAssert( f Count > 0 ); — f Count; } 



tJ; 

- z 

'"4 

[^include "scexcept .h" 
^#include <string,h> 

Clif SCDEBUG > 1 

[i #include <stdlib.h> // for rand 
"ttendif 

/* eoonosoeamaansBdiidBaeaaeBoaaanQesnonBnDaaaaoenssBanaessmeacnsneaaaseeaeii */ 
/•H- BBoauBdneeaaseiDaiiai3aDaBBaBBeBaaaeBaBBeBBBBmtiBanaBnanaaeaMaaaao8Baaaaaoaa 

#if useSMARTHEAP > 0 

static MEM_P00L hndPool ; 

static int numPools; 
static scPoolInfo* pools; 

/• «3BBaBBeBBBsaaaaanaBBaaB9aBBBBaBaBBBaBBBaaa8snBasBBBaBaaaonBBB8BBaaaaaBB »/ 

inline MEM_P00L GetHandlePool ( void ) 

{ 

return pools [ numPools - 1 ].fPool; 

} 



»/ 



inline MEM_P00L GetPool ( size_t size ) 
{ 
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register i; 




for ( i » 0; i < numPools; i++ ) { 

if ( pools [i ] .fBlockSize && poolsfi ]. fBlockSize « size 
return pools [i ]. fPool ; 

else 

return pools [ i ], fPool ; 

} 

return 0; 

} 



/» aqanDoaisiinannacaBBOtaniinaeaBaaaacieaaontieaosoooaQaaaiisiiiaDnosnaa 

inline MEM_P00L Pool0fPtr( void* ptr ) 
{ 

MEM_P00L_INF0 info; 

if ( MemPoolInfo( 0, ptr, &info ) ) 
return info. pool; 

else 

return 0; 

} 

/* BsnaasannaaBCBBBDaaaDnDBBtisaoaeoaaaaMasBaaaaaasBanBBaBaoBBSBO 

inline int CountPools( scPoolInfo infoPools[] ) 
{ 

jr=t register i; 

]f for ( i « 0; infoPools [i++] . fBlockSize; ) 



Z return i ; 

BBaeDsaaBDBBaBSBeoDBBBDaeaesaBBsaaoanaBnBctaaanaaaDanaBeseaaDS 

void MEMInit( scPoolInfo infoPools [] ) 

(3 register i; 

~ pools ■ infoPools; 
iy numPools » CountPools( pools ); 

\^ for ( i « 0; i < numPools; i++ ) { 
\z if ( pools [i] .fBlockSize ) { 

U pools [i ] .fPool « MemPoolInitFS( pools [i ]. fBlockSize, 

1024, 

MEM_P00L_DEFAULT ); 
raise_if( pools {i ] . fPool « 0, scERRmem ); 

} 

else { 

pools [i].f Pool - MemPoolInit( MEH_P00L_DEFAULT ); 
raise_if( poolsfi ] . fPool « 0, scERRmem ); 

} 

} 

} 

/» BeaBaDDaassBaBBcaBBBoeBBBBBBamBBBaBBBBBBBaaBaaaBBaeBBoaBaBBSo 

#if SCDEBUG > 1 

void dbgMemFormatPoolInfo( MEHJ>OOL_INF0* info ) 
{ 

scChar buf[256]; 

SCDebugTrace ( 0, scString( , 'MEM_P00L_INF0\n " ) ); 

scStrcpy( buf, scString( ) ); 
if ( info->type & MEM_FS_BLOCK ) 

scStrcat( buf, scString( n MEM_FS_BL0CK " ) ) ; 
if ( info->type & ME*LVAR_M0VEABLE__BL0CK ) 
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scStrcat( buf, scStri^^P'MEHJ/AR _MOVEABLE_BLOCR " ) ) ; 
if ( info->type & MEM VAR CTXED_BLOCR ) 

scStrcat( buf, scString( "ME*LVAR_FIXED_BLOCR " ) ); 
SCDebugTrace ( 0, scString( "MEM_BL0CR_IYPE 2s\n" ), buf ); 

SCDebugTrace ( 0, scString( "pagesize 5£d\n" ), info->pageSize ); 

SCDebugTrace ( 0, scString( "floor *lu\n" ), info->floor ); 

SCDebugTrace ( 0, scString( "ceiling £lu\n" ), info->ceiling ); 

SCDebugTrace ( 0, scString( "flags 0x£08x\n" ), info->flags ); 

} 

#endif 

/* ODanaoenoBiiaDaBaEBsaDataaasBDoeeeaBaaBaoaoBaiaeeBOQaBaaiinDBDaoapnnanaatiBas * / 

void MEMFini() 
{ 

register i; 

#if SCDEBUG > 1 

MEM_POOL_INFO info; 

SCDebugTrace ( 0, scString( "\n\nMemFini : BEGIN\n " ) ); 
#endif 

#if MEM_DEBUG 

dbgMemSetDefaultErrorOutput( DBGMEM_OUTPUT_.CONSOLE w "leakage .out" ); 
#endif 

C3 for ( i ■ 0; i < numPools; i++ ) { 

•■ ~1 

1% S SCDebugTrace ( 0, scString( "Free MemPool - start ^d\n" ), i ); 

Jftif SCDEBUG > 1 

=y MemPool Check ( pools [i ]. fPool ); 

q MemPool Info ( pools [i ]. fPool „ 0, &info ); 

dbgMemFo mat Pool Info ( &info ); 

I fend if 

"•4 

Jlif MEMLDEBUG 

scAssert( dbgMemReportLeakage ( poolsfi ] . fPool , l r UINT_MAX ) ); 

13 

"*j scAssert( MemPoolFree( pools [i ]. fPool ) ), pools [i ]. fPool =0; 

•~ SCDebugTrace ( 0, scString( "Free MemPool - end *d\n\n\n" ), i ); 

M } 

C3 

l^if SCDEBUG > 1 

SCDebugTrace ( 0, scString( "MemFini ; D0NE\n" ) ); 
#endif 
} 

/* nsacsaanBaaaeDaBBaseiDOBaaasnaaonBaoaBeetsnnooBaotiBanQaaneiootiaoeooaBonBeDBS * / 

#else 

/* BaaaDBaeaeaaaaaaaBaDaaaaaaaaDeoeaBcaasnaBasBoaBBBBaDBBaaDaBtcoaBsaBaaoBaB */ 



void MEMInit( scPoolInfo [] ) 

{ 

} 



void MEMFini () 

{ 

} 

#endif 

aaaBBBBadiafiaaaBBSBaaBaaBttaBBBaaBBBBBBBanaBneoBBDanBsaBBBBoBBBBBDBaBBBBaB * / 
/* ssaBBaoaosaaaaiiBaBaBBttsaaBSianaBnsBBaBaBaaBnaaBsaBasaBBaBBBsaBtiBBBnaBiBBoBB */ 
/* BaBBBBaBaBaBaBaaaaeaBaaaaBBBnaBBessBaaaaBBBBaBBaaaaBaaaBBaaBSBaBBBBBaBBa * / 

#ifdef SCMACINTOSH 
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int gStartUpC^^bted; 

// NOTE: To understand this you should be aware of the Macintosh memory 
// management as well as the handling of memory in the CApplication class. 
// Read the TCL description of the CApplication class and how it handles 
// the rainy day fund, 

// The stack object CLoanApp tells the application that we can fail this 
// memory request. We will assume that all other requests cannot fail. 
// That means we must have sufficient memory to service the request . 

// this should really be a CStackObject - unfortunatley the chicken/egg 

// problem arises because the init of tcExceptContext calls these routines 

// and CStackObject relies upon tcExceptContext already existing. 

// The reason we would like it to be a stack object is that if we 

// throw and exception this would reset the memory requests properly. 

// To reset the the memory request flags in the application I will 

// set them when we ignore the exception at the top of the event loop. 

class CLoanApp { 
public: 

CLoanApp ( ) ; 

"CLoanApp ( ) ; 
private : 

}; 

CLoanApp : : CLoanApp ( ) 

ft 

%j 

»£LoanApp : : "CLoanApp ( ) 

\f 

id 

Cint gStartUpCompleted » true; 

£ 

? ^define CLoanApp 
^define loanApp 

I fend if 

£ 3 

j? sssapBSSOsaeaassiseseaeassmeasaBeBBBseessaanssosoBODDnnaDaeeossosocsanoaD * / 

/* aBnaaDBeBBaaBsaBaacec:eaaaBsttaassd)saaasisDnaBB»nnaaQosccisaasaoneeaasnoosss * / 

#if SCDEBUG < 2 

/* BBaBaBBBBeBBnoBoaaanaBBsaBBaBBBBaaaaBaaaBMBBaBBeaBanBaaaeBaaaacaaBOOocoa */ 

void *MEMAllocPtr( ulong sz ) 
{ 

CLoanApp loanApp; 
void *ptr; 

#if useSMARTHEAP 

ptr - MemAllocPtr( GetPool ( sz ) „ sz, 0 ); 
#else 

ptr •» malloc ( sz ) ; 
#endif 

raise_if( Iptr, scERRmem ); 
return ptr; 

} 

/# oBaaeaaaBDnDisiiBnDBB*iBBa3BBsBBBBBaBBBaB«aBBnBaaaBaaBaBBOBBaiiaeaaaaBotaBDaa * / 

scMemHandle MEMAllocHnd( ulong sz ) 
{ 
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CLoanApp loanApp; 
scMemHandle hnd « 0; 

#if useSMARIHEAP 

hnd - MemAlloc( GetHandlePool () , MEM_MOVEABLE | MEM.RESIZEABLE, sz ); 
#else 

hnd * (scMemHandle)malloc( sizeof( MacHandle) + sz ) ; 

MacHandle macHandle( hnd ); 

* (MacHandle*) hnd - macHandle; 
#endif 

raise_if( I hnd, scERRmem ); 
return hnd; 

} 

//void *MEMAllocObj ( ulong size ) 
//{ 

// CLoanApp loanApp; 
// void *ptr; 

// 

// ptr » GetMemManager() .AllocObj ( (size_t)size ); 
// raise_if( I ptr, scERRmem ); 
// return ptr; 

//} 

a. j^T* BoaeaaisBDBaaoBaBaBaeaaBOBaeaaeBeBBBaBnBSCBSBBBDaooBseBanssaaBBoaBBonsnan */ 

fvoid *MEMDupPtr( void »obj ) 

$ 

fy CLoanApp loanApp; 

%j void *Ptr; 

Sj3 ulong sz - MEMGetSizePtr ( obj ); 

N ptr * MEMAllocPtr( sz ); 
13 raise_if( Iptr, scERRmem ); 

SCmemcpy( ptr, obj, sz ) ; 
?ca return ptr; 

H 

I .jflk aBBBBaaBeBaeaBaaBaBaaaaBBaaBBBBBBBasaBaaaaaasoDBSDBaBBneananBaaaaaDBsaaa */ 

^IcMemHandle MEMDupHnd( scMemHandle obj ) 

ca 

f2 CLoanApp loanApp; 
scMemHandle hnd; 

#if useSMARIHEAP 

ulong sz » MemSize( obj ); 

hnd = MEMAllocHnd ( sz ); 

try { 

void* srcP « MemLock( obj ); 
void* dstP » MemLock( hnd ); 
SCmeracpy( dstP, srcP, sz ); 

} 

catch (...){ 

MemUnlock( hnd ); 
MemUnlock( obj ); 

} 

MemUnlock( hnd ); 
MemUnlock( obj ); 

#else 

ulong sz « MEMGetSizePtr ( obj ); 
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hnd = MEMAllocHnd ( sz ); 




try { 

void* srcP - MEMLockHnd ( obj ); 
void* dstP - MEMLockHnd ( hnd ); 
SCmeracpy( dstP, srcP, sz ); 

} 

catch ( . . . ) { 

MEMUnlockHnd( hnd ); 
MEMLTnlockHnd( obj ); 

} 

MEMUnlockHnd( hnd ); 
MEMUnlockHnd( obj ); 

#endif 

return hnd; 

} 

/» BoaBaQBCBaBBeeaBBBBaBeeBBaBseBOKBBSfflaBcianeeDnBscaa&eBBBBaBaBBnBaao&aaBBs * / 

void *MEMDupObj ( void *obj ) 
{ 

CLoanApp loanApp; 
void *ptr; 

ulong sz - MEMGetSizePtr( obj ); 

□ ptr - MEMAllocPtr( sz ); 
q raise_if( I ptr, scERRmem ); 
*s SCmemcpy( ptr, obj, sz ); 
!!j return ptr; 

g ^» aeaatKsomssBBBDeaeBeBaciaaBBsnsBocinBseeoBBaBsanBiaoBosaBHDBsaBBaeaaseesBBBB * / 

*\loid* MEMResizePtr( void** obj, ulong reqSize ) 

JJ 

s CLoanApp loanApp; 
7^ void *ptr; 

iJ 

~-4i£ useSMARIHEAP 
U if ( !*obj ) 

E "7 ptr - MEMAllocPtr( reqSize ); 

^ else 

C3 ptr - MemReAllocPtr( *obj , reqSize, MEM_RESIZEABLE ); 

f #else 

% * if ( i»obj ) 

ptr - malloc( reqSize ); 

else 

ptr « realloc( *obj, reqSize ); 

#endif 

raise_if( !ptr, scERRmem ); 
return *obj « ptr; 

} 

/* BSSaBBBaaBaBBSBSSSBBBSBBBBBBBBBBBaaSBSaBBBBBSBaBBBBBeBaBBBgBaBeBSBaaBBBa */ 

scMemHandle MEMResizeHnd( scMemHandle obj, ulong reqSize ) 
{ 

CLoanApp loanApp; 

#if useSMARIHEAP 
if ( I obj ) 

obj - MEMAllocHnd ( reqSize ); 

else 

obj - MemReAlloc( obj, reqSize, MEM_RESIZEABLE ); 

#else 

if ( lobj ) 

obj * MEMAllocHnd ( reqSize ); 

else 

obj - (scMemHandle)realloc( obj, reqSize + sizeoff MacHandle ) ); 
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MacHandle macHandle( obj ); 



* (MacHandle*) obj » macHandle; 



#endif 



return obj ; 



} 



/» cssaBsasBBsanmBBSqaBBaBaaaasacBasDaBBBBaaeaBsaoBanasaaBaeBoeBBBBnaasoBss » / 



#endif /» ! SCDEBUG •/ 



void MEMFreePtr( void *obj ) 
{ 

if ( obj 0 ) 
return; 

#if useSMARIHEAP 

MemFreePtr( obj ); 
#else 

free ( obj ) ; 
tfendif 
} 

/» BBsndOBBBaaaasssBBBBaesBaaaaBBBSBSBBBBBBaaBBSssBBBBaaBSDBasBBBSsaBBessBB * / 

wid MEMFreeHnd( scMemHandle obj ) 

%Q 

jfj if ( obj « 0 ) 



^fif useSMARTHEAP 

| j raise_if( MemLockCount ( obj ) , scERRmem ); 
t ^ MemFree( obj ); 

C3 free( obj ); 
s #endif 



" jj* BaanasaseBBaaaaBBaaBaacBaaBBBassBBSBBBaaBBaBBsaBBBBBBBBBaBaBBBaaeBBasBBB * / 

»ulong MEMGetSizePtr( const void *obj ) 



#if useSMARIHEAP 

return MemSizePtrf (void*)obj ); 
#else 

return _msize( (void*)obj ); 
#endif 
} 

/* BSBBBaBBSSBBSBBBSBCtB»SBB8BBaaBBBSBBaaSaBBaBaBaBBBBBBBBBBBSBaaBB8BBeBBBBS * / 

ulong MEMGetSizeHnd ( scMemHandle obj ) 

{ 

if ( obj « 0 ) 
return 0; 

#if useSMARIHEAP 

return MemSize( obj ); 
#else 

return _jnsize( (void«)obj ) - sizeof( MacHandle ); 
#endif 
} 

/• BaBBBSBBBBBBSBBBaBBBaBaSBBBBSSSBBBBaBSBaBBBBBBBBBaaBBBBBBBaBBBaBaaBBSBBB * / 

void »MEMLockHnd( scMemHandle hnd, int counted ) 



return ; 



if ( obj « 0 ) 
return 0; 
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#if useSMARIHEAP 

return MemLock ( hnd ) ; 
#else 

MacHandle* mh = (MacHandle*) hnd; 
return mh->Lock(); 
#endif 

} 

/* aaaaBaaBaaBBBBamBBaBaBaBBBBSEaaaaBBBBaaaaaasasBBaaBaBBaBBBBBaaaaBBBnaaBBS • / 

void MEMUnlockHnd ( scMemHandle hnd, int counted ) 
{ 

#if useSMARIHEAP 

MemUnlock( hnd ); 
#else 

MacHandle* mh » (MacHandle*) hnd; 

mh->Unlock( ) ; 
#endif 
} 

/* DBaaaiitieoanaeoaooenoDancoaDDoanaQBQSaaaaBBeiiDaoBattBoaDQaaaBesaBDacaaaetiaB */ 

#if SCDEBUG > 1 

/» BBaanaaaaaaaaaaBBaBBBeaaaeaBBoebaaeosooaaoaaBoaatiDooonaaDaasisnDOBanBaaao • / 

yoid MEMValidate( void *ptr ) 

Q 

■ % §i£ useSMARIHEAP 

fYl MEH.P00L pool - PoolOfPtr( ptr ); 
fU if ( pool ) { 

■kj s scAssert( MemPoolCheck ( pool ) ); 

«i 1 

^felse 
*#endif 

Q 

_ jf+ oeDaaaBeanBaDasieaepotiaBBaaaaaeaaanBsonfflBOonsaatiaanaffioeasoBaaasosiatgnDeiBsoi */ 

'•&oid memDumpMetrics() 
1* 

% ?if useSMARIHEAP 
**elif useMACHACK 
rSendif 

/* BaBBBsaicoanBnBBDaBeiBnonBnaaosBBaaBSBinBBBaaBBBocBnBnBaBB)BnaossseBaiBBtsBBBc « / 

inline void memRecordTracklnfo ( void *ptr, const char 'filename, int line ) 

{ 

#ifdef MEMJTRAC K_AL L 0 C 

#if useSMARIHEAP 

#else 

#endif 
#endif 
} 

/* aaaBoastsBaBBBaBBBaaaBaBaBBaaaaBBBBssaBBeosBeBaBanBOBaaBaoBBOosaaBosaBaBB * / 

inline void memRecordTracklnfo ( scMemHandle ptr, const char *filename, int line ) 
{ 

#ifdef MEH-TRACK^ALLOC 

#if useSMARIHEAP 

#else 

#endif 
#endif 
} 

/* BaB3BBBBBBBBaBC3BaasBBBBBBBSlBBBBSiatS8BS3B8aOBSBlBSBBBOC3nsaBBBtBaBaSiacaaB»BBSSBaB * / 
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int gRandomFailure; // randomly fail memory all oca J 

static Boolean RandomFailure ( ) 
{ 

if ( ! gRandomFailure || ! gStartUpCompleted ) 
return false; 

if ( ( rand() % gRandomFailure ) ) 

return false; 
else { 

SCDebugTrace ( 0, scString( "RANDOM FAILURE £d\n" ), gRandomFailure ); 
return true; 

} 

} 

/# nooaiBDeiioaeooDaBaeDnnnaaDDDi)atinciBSOBioneaen»tE«aDtiiiBE3aisBaoaiBODOoaQSOBnoDao * / 

void* MEMAllocPtrDebug( ulong sz, const char *filename, int line ) 
{ 

CLoanApp loanApp; 
void *ptr; 

ra i se_i f ( RandomFa i 1 ure ( ) , scERRmem ) ; 

#if useSMARIHEAP 

ptr - _dbgMemAllocPtr( GetPool( sz ) , sz, 0, filename, line ); 
#else 

ptr » malloc( sz ) ; 
#endif 
C3 

h.3 raise_if( !ptr, scERRmem ); 
I's memRecordTrackInfo(ptr, filename, line); 

rU return ptr; 

14 

|lcMemHandle MEMAllocHndDebug ( ulong sz, const char *filename, int line ) 

J„ CLoanApp loanApp; 
*3 scMemHandle hnd; 

I j raise_if( Ran domFai lure () , scERRmem ); 
r#if useSMARIHEAP 

Q hnd « _dbgMemAlloc( GetHandlePool () , MEM_MOVEABLE | MEM^RESIZEABLE, sz, filename, line ); 
r^else 

hnd » (scMemHandle)malloc( sizeof( MacHandle) + sz ); 
MacHandle macHandle( hnd ); 
* (MacHandle*) hnd - macHandle; 
#endif 

raise_if( !hnd, scERRmem ); 
memRecordTrackInfo( hnd, filename, line); 

return hnd; 

} 

/» aaBaanDOaDORaaaaooanBOBaoaaeeaeaBaeaiiBeDBBBBanBaDDBaBaBBaaaaaaoaiiieeoaasffl */ 

void* MEMResizePtrDebug( void** obj , 

ulong reqSize, 
const char* file, 
int line ) 

{ 

CLoanApp loanApp ; 
void *ptr; 
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#if useSMARTKEAP 

if ( !*obj ) ^ 

ptr =» MEMAllocPtrDebug( reqSize, file, line ); 

else 

ptr « _dbgMemReAllocPtr( »ob j , reqSize, MEM_RESIZEABLE, file, line ); 

tfelse 

ptr ■ realloc( *ob j , reqSize ); 
#endif 

raise_if( !ptr, scERRmem ); 
return *obj « ptr; 

} 

/* aasaaBSBmttaBacnansDsnaonaDDattoBBPODtiBBDBBaDaBaaaeBanovanQoasaBOisaaacasoD »/ 

scMemHandle MEMResizeHndDebug( scMemHandle obj, 

ulong reqSize, 

const char* file, 

int line ) 

{ 

CLoanApp loanApp; 

#if useSMARIHEAP 
if ( iobj ) 

obj - MEMAllocHndDebugf reqSize, file, line ); 

else 

obj - _dbgMemReAlloc( obj, reqSize, METRES I ZEABLE , file, line ); 

#else 

obj - (scMeraHandle)realloc( obj, reqSize + sizeof( MacHandle ) ); 
Jlbndif 

1Z return obj ; 

\i 

i y 

*, ^* DoassKDenasBBaeaasiaBaoaDiDaannascBaaaeaBBaBaDaaaanBaeasaBaBaBaBnanaaoBoaiB */ 

i :S 

M/oid "MEMDupPtrDebug ( void *obj , const char "filename, int line ) 

tj CLoanApp loanApp; 
void »ptr; 

a 

iJ if ( I RandomFailure ( ) ) { 
^fif useSMARIHEAP 

|^.| ulong sz - MemSizePtr ( obj ); 

r~ ptr = MEMAllocPtrDebug( sz, filename, line ); 

lJ raise_if( iptr, scERRmem ); 

?«% SCraemcpy( ptr, obj, sz ); 

*#else 

ulong sz « _msize( obj ); 

ptr MEMAllocPtrDebug( sz, filename, line ); 
raise_if( iptr, scERRmem ); 
SCmemcpy( ptr, obj, sz ); 

#endif 

} 

else 

ptr = NULL; 
raise_if( iptr, scERRmem ); 
memRecordTrackInfo(ptr, filename, line); 
return ptr; 

} 

/• BBBaasaaDBBaaaeaBOBBBBEgeaBBaaBaDaaBBaaaaDaBaoaaaDesBBBaaBBaBaaaBBeaBBBa * / 

scMemHandle MEMDupHndDebug ( scMemHandle obj, const char "filename, int line ) 
{ 

CLoanApp loanApp; 
scMemHandle hnd; 

if ( IRandomFailureO ) { 

#if useSMARIHEAP 
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ulong sz * MemSize( oi^ ); 
hnd MEMAllocHndDebug ( sz, filename, line ); 
try { 

void* srcP » MemLock ( ob j ) ; 
void* dstP - MeraLock ( hnd ); 
SCmemcpy ( dstP , srcP , sz ) ; 

} 

catch ( ... ) { 

MemUnlock ( hnd ) ; 
MemUnlock ( obj ); 
throw; 

} 

MemUnlock ( hnd ); 
MemUnlock ( obj ); 



#else 



ulong sz « _msize( obj ) - sizeof ( MacHandle ) 
hnd - MEMAllocHndDebug ( sz, filename, line ); 
try { 

void* srcP - MEMLockHnd ( obj ); 
^ void* dstP « MEMLockHnd ( hnd ); 

SCmemcpy( dstP, srcP, sz ); 

y } 



m 



catch (...){ 

MEMUnlockHnd ( hnd ); 
I MEMJnlockHnd( obj ); 

J > 



J'2 MEMUnlockHnd ( hnd ); 

C3 MEMUnlockHnd ( obj ); 



k©ndif 

51 ). 



'4 else 
LJ hnd - NULL; 

xaise_if( Ihnd, scERRmem ); 
IZ memRecordTrackInfo( hnd, filename, line ); 
I J return hnd; 

/» saaaoBseBoiaasaseaBSssaaeseaBvaBeiaeaBeBaBBBSBBBBBnQas 

#endif /» SCDEBUG */ 

/ * nmsBssnat!8dHaBeBeBnBaanasD«a8oaessasttSBnsBaBSBOBBaBee 

scAutoUnlock: : scAutoUnlock ( scMemHandle hnd ) 
: fHandle(hnd) 

{ 

#if useSMAKIHEAP 

MemLock( fHandle ); 
#else 

MEMLockHnd ( fHandle ); 
#endif 
} 

scAutoUnlock : RscAutoUnlock ( ) 
{ 

#if useSMARIHEAP 

MemUnlock ( fHandle ); 
#else 

MEMUnlockHnd ( fHandle ); 
#endif 
} 
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/ * nosaooBisoaBSDaiiisnsosnssBensnaDBSotsBBOisaBSDQDntiaoBBaaaoeaeBOBDEiaaaRon */ 

#ifndef SCmemset // we are in a 16 bit world 

void scFar* scFar scCDecl SCmemset ( void scFar* ptr, 

int val, 
long len ) 

{ 

return _fmemset( ptr, val„ (size_t)len ); 

} 

/» BasaaoBaaeasoDDniiDonBoaBiDiiaasBBsaaDiisaaBaaDonBBQsnBnBBaBDoaocnnaBaan * / 

void scFar* scFar scCDecl SCmemmove( void scFar* dst, 

const void scFar* src, 
long len ) 

{ 

return _fmemmove( dst, src, (size_t)len ); 

} 

/• aaaBBaaaBBeBaBaaaaaoaeBBBBDnaeaaBDDaaBBBaBaBODaBttaoaaBDaDanncaaRBasB »/ 

void scFar* scFar scCDecl SCraemcpy( void scFar« dst, 

const void scFar* src, 
long len ) 

{ 

return _fmemcpy( dst, src, (size_t)len ); 

th 

asaaDaDBaaBBBBBaeBBBBBBSBBsneaaseaaaBBBBaBSBBBsaBBBBBDSBaaOBBeBBaaBB */ 

th 

»ipt scFar scCDecl SCmemcmp( const void scFar* pi, 
s i? const void scFar* p2, 

\J long len ) 

id 

return _fmemcmp( pi, p2, (size_t)len ); 



U 

s #endif 

£ 7S. 
I 1 

VI 

£. Li 

il 



File : Work\CrtPrt\Stonehnd\Scexcept .h 



Pg: 1 



5/30/97 8:45a Wmanis $ 



/isotiBSBaootiaiitieeosaqaiaaaB: 

File: EXCEPT. H 

$Header: /Projects/Toolbox/ct/SCEXCEPT.H 2 
Contains: exception code 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 



Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef _H_EXCEPT 
#define _H_EXCEPT 

#include "sctypes.h 1 

#if SCDEBUG > 1 
fl #undef new 
*$endif 



^eilass scException { 

"public: 
if! 



^if SCDEBUG > 1 



hi 



scException ( status errCode * scSuccess, 
const char* file - 0, 
int line - 0 ) : 

fFile( file ), 
fLine( line ), 

fCode( errCode ){ SCDebugBreak 



(); } 



|#else 



Cifendif 

status 

#if SCDEBUG > 1 
const char* 
const int 

#endif 



scException ( status errCode » scSuccess ) 
fCode( errCode ){} 



GetValue(void) const 



fFile; 
fLine; 



{ return fCode; } 



private : 

const status 



fCode; 



#if 0 



#if SCDEBUG > 1 

#define raise (err) 
#define raise if(exp, err) 
. )).0) : 0) 

1 S6 

#ifndef MSVCBUG_1A 

#define raise ( scerr ) 
#define raise„if (exp, scerr ) 

0) 



throw( scException ( err, FILE , LINE ) ) 

((exp) ? (throw( scException ( err, FILE , LINE_ 



throw( scException ( scerr ) ) 

((exp) ? (throw ( scException ( scerr )),0) 
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0) 



#else 

#define raise (erJ 
#define raise_if (exp„ err) 



#endif 
tfendif 
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throw ( scException( (status) err ) ) 

((exp) ? (throw( scException( (status)err )),0) 



#else 



#define raise (err) 
#define raise_if (exp, err) 



throw ( err ) 

((exp) ? (throw( err ), 0 ) : 0) 



#endif 



/* aoeBitaaannaeaaonDoennoiiBasaaoBt 
/ * sBSosesitsBODOoexesBossoaDeaaonai 



>eoa * / 



#endif ✓» _HJEXCEFT 



Cn 

& 3 



□ 
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File: chfile.h 

SHeader: /Projects/Toolbox/ct/SCDBCSDT.H 2 5/30/97 8:45a Wmanis $ 
Contains: Class for reading DBCS files. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

BBBBBBBnBBsnasanaBCiBBBSBaasnEaaiiaBDseBBBBaaBaBBaoBnaBBaEiOBBBaBnnB*/ 



#ifndef J4.SCDBCSDT 
#def ine JLJ5CDBCSDT 



^include "sctypes.h" 

e 3 

fed ass scDBCSDetector { 
public: 

fiJ enum eByteType { 

J, 5 eFirstByte - -1, 

eOnlyByte, 
^ eLastByte, 
''-■4 eMiddleByte 

}; // id's a byte of a multibyte character 



scDBCSDetector ( TypeSpec ts ); 

void setDBCS( TypeSpec ts ); 

long StrLen( const char • ) const; 



^ eByteType ByteType( uchar ch ) const 

return dbcs_ ? shiftjis_[ch) : eOnlyByte; 



C3 < 



} 



private : 

Bool dbcs_; 

static eByteType shiftjis_[]; 

}; 

#endif /* _H_SCDBCSDT •/ 
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if ( fmt && *fmt ) { 

va_start( args, fmt ); 
DbgVPrintf( fmt, args ); 
va_end ( args ) ; 

} 

} 

/* Asserts */ 

void AssertFailed ( const scChar *exp, const char *file, int line ) 
{ 

#ifdef SCMACINTOSH 

SCDebugTrace ( 0, scString( n {%s/4\&): assert failed: V^sV'Nn" ), file, line, exp ); 
tfelse 

SCDebugTrace ( 0, scString( "(*s,£d): assert failed: \ n Zs\ n \n" ), file, line, exp ); 
#endif 

raise ( scERRassertFailed ); 
// throv?( new sc£xception( scERRassertFailed, file, line ) ); 
} 

/» BaanoBenaDosaiiesaBBBBtieaiaeBtiaoBasoatiDBoaaBaBnsaonsBSDaBsaBBnaiinioaoaasaaa * / 



y 

5 

Q 
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*...„.. 

File: DEBUG. C 

SHeader: /Projects/Toolbox/ct/SCDEBUG.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: Debugging routines for composition toolkit. 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#if defined ( SCWINDOWS ) 

^include <windowsx.h> 
#else 

#include <stdio.h> 
#endif 

Cf include <stdarg.h> 

SI 

ii'include "scexcept .h" 

fU/ Debugger output/interrupts 

^ Z'* naaensnanaBssaomeaaaosDnnasnamaiaoeaiiaBBanscooossasnonesnnsotsnosoBOBSBaDa * / 

[J 

*yoid DbgVPrintf( const scChar* fmt, 

va_list args ) 

% r 

s #if defined ( SCWINDOWS ) 

r ^ 

scChar buff 256]; 
= i int len; 

IW 

f& wvsprintf( buf, fmt, args ); 
jp len » scStrlen( buf ); 

^3 if ( bufflen - 1] " *\n' ) { 
buf[ len - 1] - 0; 

scStrcat( buf, scString( "\r\n" ) ); 

} 

OutputDebugString( buf ); 

#elif defined ( SCMACINTOSH ) 

scChar buf [256]; 
vsprintf( buf, fmt, args ); 
fputs( buf, stderr ); 

#endif 
} 

/» oanasaoaaaoBBBaoaaananaaaBeaooaaBaaafflBaaeBnaoaaeaaaaaeaBBBaBoBaaaaaaaoBB »/ 

void SCDebugTrace ( int level, const scChar* fmt, ... ) 
{ 

extern int scDebugTrace ; 

if ( level > scDebugTrace ) 
return; 
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#define MANUAL. INST 
#define ANSI_CLASS_INST 




#ifdef MANUAL.. INST 

#define DEFINEJTEMPLATES 
^include "scparagr.h" 
#include "scspcrec . h " 
#include "scpubobj .h" 
#undef DEFINEJTEMPLATE 

#ifdef .WINDOWS 

#pragma warning ( disable : 4660 ) // duplicate template definitions 
#endif 

#ifdef ANSI_CLASS_INST 

template class scSizeableArray< char* >; 

template class scSizeableArrayD< stPara >; 

template class scSizeableArrayD< scKeyRecord >; 

template class scSizeableArray< UCS2 >; 

template class scSizeableArrayD< scSpecLocation > ; 

template class scSizeableArrayD< scSpecRecord >; 

template class scSizeableArrayD< Ref CountPtr< stSpec > > ; 
#endif // ANSI_CLASS_INST 

#endif // MANUAL.INST 



in 
ru 



S I 
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/• oaeattaoaBBDSDaaonaaeaaoa nc^^^^ae oooaoaaooenioDsovaaoaBODaaaoaaa 

File: EXCEPT. C 

$Header: /Projects/Toolbox/ct/SCEXCEPT.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: xxx put contents here xxx 
Written by: Sealy 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

QnnoaaaoansBBaBaasBCBCiaaoBaaaosoaoBDBOOBBeBasaBoaBneaBaBDaBDBBaBBf/ 

#include "scexcept.h" 
^include <string.h> 



P 
in 

a : ; 
a 



u 

u 

£3 

p 
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/* BanaBsanoasDeaaaeaaaaBeBsi 

File: charbyte.c 

$Header: /Projects/Toolbox/ct/SCDBCSDT.CPP 2 5/30/97 8:45a Wmanis $ 
Contains: DBCS code. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scdbcsdt.h" 
^include "scstcach .h" 

/* eaaBBaBaaBaaaaaBaaaDOBaasDaaoaaaaaaaciBoaBoaoooBasDfflBaBaaaaaBaeaaaaaa */ 
/» BSBsafiSDaaBaaasaaBBaaaBBacBSBSBsrssDSBnasoBaBBSOBSDaasBaBaasaoaaBasa »/ 

fscDBCSDetector: : scDBCSDetector ( TypeSpec ts ) 
% j: : dbcs„(0) 

;;; setDBCS( ts ); 

• aanBaBooaoooanaBOBoaaaaaBBaaeaaaaaaaaaaeaaBBaaaaaaBasanaaooaanaoaasB */ 

6 r i j ' 

\*bid scDBCSDetector: :setDBCS( TypeSpec ts ) 

m 

dbcs_ " ts.ptr() ? scCachedStyle: :GetCachedStyle( ts ) . GetBreakLang ( ) : false; 

% 

is 

'^J* aBBBBaaBBaaaaBBaBBaBBBcansBaBBaeaaB&saoaBaBoaesaaaaaaBseaaaeBBaBaaaB */ 

;i:ong scDBCSDetector: :StrLen ( const char* str ) const 

H 

(2 long len » 0; 



£3 



for ( ; *str; ) { 

switch ( ByteType ( *str++ ) ) { 
case eOnlyByte: 
case eLastByte: 
len++; 
break ; 

} 

} 

return len; 



scDBCSDetector : : eBy teType scDBCSDetector ::shiftjis_[] 

eOnlyByte, /* 0x00 «/ 

eOnlyByte, /* 0x01 */ 

eOnlyByte, /* 0x02 */ 

eOnlyByte, /* 0x03 */ 

eOnlyByte, /* 0x04 */ 

eOnlyByte, /* 0x05 */ 

eOnlyByte, /* 0x06 «/ 

eOnlyByte, /* 0x07 »/ 

eOnlyByte, /* 0x08 */ 

eOnlyByte, /* 0x09 */ 
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eOnlyByte, 


/* 


OxOa 


•/ 


eOnlyByte, 


/« 


OxOb 


*/ 


eOnlyByte, 


/* 


0x0c 


»/ 


eOnlyByte, 


/* 


OxOd 


»/ 


eOnlyByte, 


/« 


OxOe 


•/ 


eOnlyByte, 


/♦ 


OxOf 


»/ 


eOnlyByte, 


/* 


0x10 


*/ 


eOnlyByte, 


/* 


0x11 


«/ 


eOnlyByte, 


/* 


0x12 


*/ 


eOnlyByte, 


/* 


0x13 


*/ 


eOnlyByte, 


/» 


0x14 


*/ 


eOnlyByte, 


/* 


0x15 


«/ 


eOnlyByte, 


/* 


0x16 


*/ 


eOnlyByte, 


/* 


0x17 


♦/ 


eOnlyByte, 


/« 


0x18 


*/ 


eOnlyByte, 


/« 


0x19 


*/ 


eOnlyByte, 


/* 


Ox la 


«/ 


eOnlyByte, 


/* 


Ox lb 


«/ 


eOnlyByte, 


/* 


Oxlc 


«/ 


eOnlyByte, 


/» 


Ox Id 


•/ 


eOnlyByte, 


/» 


Oxle 


*/ 


eOnlyByte, 


/* 


Oxlf 


»/ 


eOnlyByte, 


/* 


0x20 


«/ 


eOnlyByte, 


/* 


0x21 


«/ 


eOnlyByte, 


/» 


0x22 


♦/ 


eOnlyByte, 


/« 


0x23 


*/ 


eOnlyByte, 


/* 


0x24 


«/ 


eOnlyByte, 


/* 


0x25 


*/ 


eOnlyByte, 


/« 


0x26 


«/ 


eOnlyByte, 


/* 


0x27 


*/ 


eOnlyByte, 


/* 


0x28 


*/ 


eOnlyByte, 


/» 


0x29 


«/ 


eOnlyByte, 


/* 


0x2a 


»/ 


eOnlyByte, 


/* 


Ox 2b 


*/ 


eOnlyByte, 


/* 


0x2c 


*/ 


eOnlyByte, 


/* 


0x2d 


*/ 


eOnlyByte, 


/« 


0x2e 


*/ 


eOnlyByte, 


/* 


0x2f 


»/ 


eOn lyByte , 


/« 


0x30 


*/ 


eOnlyByte, 


/* 


0x31 


*/ 


eOnlyByte, 


/* 


0x32 


*/ 


eOnlyByte , 


/* 


0x33 


*/ 


eOnlyByte, 


/* 


0x34 


*/ 


eOnlyByte, 


/» 


0x35 


*/ 


eOnlyByte, 


/« 


0x36 


*/ 


eOnlyByte, 


/* 


0x37 


»/ 


eOnlyByte, 


/» 


0x38 


•/ 


eOnlyByte, 


/« 


0x39 


*/ 


eOnlyByte, 


/» 


0x3a 


»/ 


eOnlyByte, 


/« 


Ox 3b 


*/ 


eOnlyByte, 


/» 


0x3c 


*/ 


eOnlyByte, 


/* 


0x3d 


*/ 


eOnlyByte, 


/» 


0x3e 


*/ 


eOnlyByte, 


/» 


0x3f 


«/ 


eOnlyByte, 


/* 


0x40 


«/ 


eOnlyByte, 


/* 


0x41 


*/ 


eOnlyByte, 


/« 


0x42 


*/ 


eOnlyByte, 


/* 


0x43 


*/ 


eOn lyByte , 


/* 


0x44 


*/ 


eOnlyByte, 


/» 


0x45 


»/ 


eOnlyByte, 


/» 


0x46 


*/ 


eOnlyByte, 


/* 


0x47 


*/ 


eOnlyByte, 


/* 


0x48 


«/ 


eOnlyByte, 


/* 


0x49 




eOnlyByte, 


/* 


0x4a 


*/ 


eOnlyByte , 


/* 


Ox 4b 


»/ 


eOnlyByte, 


/» 


0x4c 


•/ 


eOnlyByte, 


/» 


0x4d 


«/ 


eOnlyByte, 


/* 


0x4e 


*/ 


eOnlyByte, 


/» 


0x4f 


•/ 


eOnlyByte, 


/♦ 


0x50 


«/ 


eOnlyByte, 


/* 


0x51 


»/ 


eOnlyByte, 


/» 


0x52 


»/ 
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Si 57 

in 
fli 

iy 

C3 



eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 



/* 0x53 */ 
/* 0x54 */ 
/* 0x55 »/ 
/» 0x56 «/ 
/* 0x57 */ 
/• 0x58 */ 
/* 0x59 */ 
/* Ox 5a */ 
/* Ox 5b */ 
/* Ox 5c */ 
/* 0x5d •/ 
/* 0x5e */ 
/* 0x5f */ 
/* 0x60 */ 
/« 0x61 »/ 
/* 0x62 ♦/ 
/* 0x63 «/ 
/* 0x64 */ 
/* 0x65 */ 
/* 0x66 */ 
/« 0x67 */ 
/* 0x68 »/ 
/* 0x69 »/ 
/« 0x6a ♦/ 
/* 0x6b 
/* 0x6c •/ 
/* 0x6d •/ 
/« 0x6e «/ 
/« 0x6f */ 
/* 0x70 »/ 
/* 0x71 »/ 
/* 0x72 »/ 
/* 0x73 */ 
/* 0x74 «/ 
/* 0x75 */ 
/* 0x76 */ 
/* 0x77 */ 
/* 0x78 */ 
/* 0x79 «/ 
/« Ox 7a */ 
/« Ox 7b «/ 
/« 0x7c */ 
/* 0x7d »/ 
/* 0x7e */ 
/* 0x7f •/ 
/* 0x80 «/ 
, /* 0x81 */ 
, /* 0x82 »/ 
, /* 0x83 */ 
„ /* 0x84 */ 
, /« 0x85 */ 
, /* 0x86 */ 
, /* 0x87 */ 
, /* 0x88 */ 
, /* 0x89 */ 
, /* Ox 8a */ 
„ /« Ox 8b «/ 
, /* 0x8c */ 
„ /* 0x8d «/ 
„ /« 0x8e «/ 
, /* 0x8f */ 
„ /» 0x90 ♦/ 
, /* 0x91 »/ 
„ /* 0x92 »/ 
r /* 0x93 •/ 
, /* 0x94 */ 
„ /« 0x95 •/ 
„ /* 0x96 »/ 
, /* 0x97 */ 
„ /* 0x98 »/ 
, /* 0x99 •/ 
, /* Ox 9a */ 
„ /* Ox 9b •/ 
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eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eOnlyByte, 

eOnlyByte, 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eOnlyByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 

eFirstByte 



, /» Ox 9c */ 
, /* 0x9d */ 
„ /» 0x9e »/ 
„ /* 0x9f */ 

/» OxaO «/ 

/* Oxal »/ 

/• 0xa2 */ 

/* 0xa3 «/ 

/« 0xa4 */ 

/* 0xa5 */ 

/* 0xa6 */ 

/« 0xa7 */ 

/* 0xa8 */ 

/* 0xa9 */ 

/* Oxaa */ 

/» Oxab »/ 

/« Oxac */ 

/* Oxad */ 

/* Oxae »/ 

/* Oxaf */ 

/* OxbO «/ 

/» Oxbl •/ 

/« 0xb2 «/ 

/» 0xb3 */ 

/» Oxb4 */ 

/* 0xb5 */ 

/* Oxb6 »/ 

/« 0xb7 */ 

/* 0xb8 */ 

/* Oxb9 */ 

/« Oxba */ 

/» Oxbb */ 

/* Oxbc */ 

/* Oxbd */ 

/* Oxbe */ 

/» Oxbf */ 

/* OxcO */ 

/* Oxcl «/ 

/* 0xc2 */ 

/* 0xc3 */ 

/* 0xc4 */ 

/« OxcS «/ 

/» 0xc6 »/ 

/* 0xc7 */ 

/* 0xc8 */ 

/» 0xc9 */ 

/» Oxca */ 

/* Oxcb */ 

/» Oxcc »/ 

/» Oxcd «/ 

/« Oxce */ 

/* Oxcf */ 

/» OxdO */ 

/* Oxdl */ 

/* 0xd2 */ 

/* 0xd3 */ 

/» 0xd4 */ 

/* 0xd5 */ 

/* 0xd6 */ 

/* 0xd7 */ 

/« 0xd8 */ 

/* 0xd9 »/ 

/* Oxda */ 

/* Oxdb */ 

/* Oxdc */ 

/* Oxdd */ 

/* Oxde */ 

/» Oxdf «/ 
, /» OxeO «/ 
r /» Oxel */ 
„ /» 0xe2 «/ 
, /» 0xe3 */ 
, /» 0xe4 »/ 
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eFirstByte, /« 0xe5 */ 
eFirstByte, /* 0xe6 */ 
eFirstByte, /* 0xe7 */ 
eFirstByte, /* 0xe8 »/ 
eFirstByte, /* 0xe9 «/ 
eFirstByte, /* Oxea */ 
eFirstByte, /* Oxeb */ 
eFirstByte, ✓* Oxec •/ 
eFirstByte , ✓* Oxed »/ 
eFirstByte, /* Oxee */ 
eFirstByte, /• Oxef •/ 
eFirstByte, /* OxfO «/ 
eFirstByte, /* Oxfl •/ 
eFirstByte, /» 0xf2 »/ 
eFirstByte, /« 0xf3 »/ 
eFirstByte, /* 0xf4 •/ 
eFirstByte, /» 0xf5 »/ 
eFirstByte, /* 0xf6 */ 
eFirstByte, /* 0xf7 «/ 
eFirstByte, /» 0xf8 «/ 
eFirstByte, /* 0xf9 «/ 
eFirstByte, ✓* Oxfa */ 
eFirstByte, /* Oxfb «/ 
eFirstByte, /« Oxfc */ 
eOnlyByte, /* Oxfd */ 
eOnlyByte, /* Oxfe */ 
eOnlyByte /» Oxff */ 



m 

W 



1 J. 

b 

C3 
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File: SCPARAGR.H 

$Header: /Projects/Toolbox/ct/SCPARAGR.H 3 5/30/97 8:45a Wmanis $ 
Contains: Method/Function interface to class of paragraph 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#ifndef JLSCPARAGR 
^define .JiJSCPARAGR 

#ifdef SCMACINTOSH 
.^pragma once 
&&ndif 

\J 

include "sctbobj .h" 

include "sccharex . h " 

include "scspcrec .h" 

'^include "scmemarr .h" 



FORWARD REFERENCES //////////////////////////// 



^ifdef _RUBI_SUPPORT 
Mlass scRubiArray; 
"^fendif 

*glass scColumn; 
*class scCOLRefData; 
I glass scSpecRecord ; 
gqlass scMuPoint; 
"class scAnnotation; 

class scLEADRefData; 

class stText Import Export; 

class scTypeSpecList; 

class scSpecLocList; 

class scTextline; 



/* naosDnesBBaBiimcsaossatidaniaasiiQsasiaaaonisiaoaaaastDaaeaasaossosaaaDOSBaBi * / 

// events that the reformatter returns 

typedef enum eReformatEvents { 

eNoRe format, // no reformatting was performed 

eNormal Re format, // normal reformatting event 

eRebreak, // rebreak the paragraph, probably for widow/orphan control 

eOverf lowGeometry, // more text than columns 

eOverf lowContent // more columns than text 
} eRef Event; 

/• asaoKatgaDDDannsBOOBanaqaaBBKBaasneaaDiiBsaBsnandaDBBttaDaDaBOSBaaaeBBa * / 



class scStreamChangelnfo { 
public: 

// these are the paragraph and offset of character insertion 
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// that is used to in 
// characters 



correct update with mono-spaced 



void 



scStreamChangeInfo( ) : 
f Column ( 0 ), 
fPara( 0 ), 
fOffset( 0 ), 
f Length ( 0 ){} 

Set( scColumn* col, scContUnit* para, long offset, long len ) { 
f Column » col, 
fPara » para, 

f Off set « offset, 
f Length - len; 

} 



scColumn* 

scContUnit* 

long 

long 
void 

private: 

scColumn* 
scContUnit* 
long 
long 



GetColumn( void ) const 
GetPara( void ) const 
GetOffset( void ) const 

GetLength( void ) const 
SetLength( long len ) 



f Column; 
fPara; 
f Off set; 
f Length; 



{ return fColumn; } 

{ return fPara; } 

{ return f Off set; } 

{ return f Length; } 

{ f Length « len; } 



'dAass PrevParaData { 
#iblic: 

hi 



^3 



LJ 



\ if 



void 



PrevParaData ( ) 



Init(); 



scTextline* lastLineH; 
TypeSpec lastSpec; 



Init( void ) 
{ 

lastLineH - 0; 
1 astSpec . c 1 ear ( ) ; 

} 



/* 



sanBDaBnoBaaBBaasesosoBeaDBBsa */ 



class scCharArray : public scHandleArray { 

scDECLARE_RTTI ; 
public: 

scCharArray () : 

scHandleArray( sizeof( CharRecord ) ) 
{ 

CharRecord ch( 0, 0 ); 
AppendData( (ElementPtr)&ch ); 

} 



// add null terminator 



virtual int IsEqual ( const scObjectfic ) const; 

UCS2 GetCharAtOf fset ( long offset ) const 

{ return ( ( (CharRecordP)GetMem() ) + offset )->character; } 

void RemoveBetweenOf fsets( long startOffset, long endOffset ); 

// copy the contents from startOffset to endOffset into the 
// arg scCharArray 

void Copy( scCharArray&, long startOffset, long endOffset ) const; 
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void 



void 

int 
int 
int 

void 
void 
int 



// copy the c^^Mts from startOffset to endOf fset 1 
// arg scCharArray and then remove them 
Cut( scCharArray&, long, long ); 



the 



// paste the contents of the arg scCharArray into the character array 

// at the indicated array 

Paste ( scCharArray&, long startOffset ); 

FindString( const stUnivString&, const SearchState&, int32, int32, int32& ); 
ReplaceToken( const stUnivString&, int32, int32& ); 
GetTokenf stUnivString&, int32, int 32 ) const; 

Insert ( const CharRecordP, long, long ); 

Insert ( const UCS2», long, long ); 

Insert ( const stUnivString&, int32, int32 ); 



void 



CopyChars( UCS2«, long, long ); 



// transform the indicated characters using the type of 
// transformation passed in, ususally for making 
// alternate characters 
void Transform( long startOffset, 

long endOffset, 

eChTranType trans, 

int numChars ) ; 

void Retabulate( scSpecRun& specRun, 

long start, 

long end, 

TypeSpec changedSpec , 

long charSize ) ; 



t3 

I i I 
S. ! 



void 



void 



RepairText( scSpecRun&, 



long 
long 

SelectWord( long 
long& 
long£c 



of fset 1, 
offset2 ); 



offset, 
startWord , 
endWord ) ; 



Mifdef _RUBI_SUPPORT 



void 



C3 



#else 
void 



#endif 
void 
void 



Charlnsert( long&, 

scSpecRun&, 

scRubiArray*, 

long, 

scKeyRecord&, 
Bool, 

TypeSpec ) ; 

Char Insert ( longSc, 

scSpecRun&, 
long, 

scKeyRecord& , 
Bool, 

TypeSpec ) ; 



WordSpaceInfo( long, MicroPoint& ); 

CharInfo( scSpecRun&, 
long, 
UCS2&, 
ulong&, 
MicroPoint&, 
TypeSpec&, 
eUnitTypeSc ); 



long 



ReadTextf scSpecRun&, 
APPCtxPtr 
IOFuncPtr 
int 



ctxPtr, 
readFunc , 
charset - 0 ) ; 
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void WriteText( sc^^pbn&, 

Bool 

APPCtxPtr ctxPtr, 
IOFuncPtr writeFunc, 
int charset - 0 ) ; 

long ReadAPPText( scSpecRunSc, stTextImportExport& ); 

void WriteAPPText ( scSpecRun&, stText Import Export 6. ); 

long GetContentSize( void ) const 

{ 

return fNuml terns - 1; 

} 

void SetContentSize( long ); 

long Externa lSize( void ) const; 

void Read( APPCtxPtr, IOFuncPtr ); 

void Write ( APPCtxPtr, IOFuncPtr ); 

virtual ElementPtr Lock( void ); 

virtual void Unlock ( void ); 

void Validate ( void ) const; 



private : 

void CopyChars( CharRecordP, long, long ); 

#ifdef _RUBI_SUPPORT 
^ void DoBackSpace( longSc, 

S *Z long&, 
W scSpecRun&, 
f n scRubi Array* , 

long, 

scReyRecord&, 
Bool ) ; 



F I i 

t3 



void DoForwardDelete( long&, 

Z long&, 

3 scSpecRun&, 

scRubi Array*, 

* long, 

^ scReyRecord& , 

y Bool ); 



void DoDiscHyphen( long&, 

long&, 

*f scSpecRunSc, 
|1 scRubi Array* , 

long, 

scKeyRecord&, 
Bool ) ; 

void DoFixSpace( long&, 

longSc, 
scSpecRunSc, 
scRubi Array* , 
long, 

scReyRecord& , 
Bool ); 

void DoCharacter( long&, 

long&, 
scSpecRunSc, 
scRubiArray*, 
long, 

scReyRecord&, 
Bool ) ; 



#else 
void 



DoBackSpace( long&, 
longSc, 
scSpecRunSc, 
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yRecord&, w 



5yRecord&, 
Bool ); 

void DoForwardDelete( long&, 

long&, 
scSpecRun&, 
long, 

scKeyRecord&, 
Bool ); 

void DoDiscHyphen ( long&, 

long&, 
scSpecRun&, 
long, 

scKey Record &, 
Bool ); 

void DoFixSpace( long&, 

long&, 
scSpecRun&, 
long, 

scKey Records, 
Bool ) ; 

void DoCharacter( long&, 

longSc, 

scSpecRun&, 
fn long, 
"5 scReyRecord&, 
jjf Bool ); 

f;f 

%ndi£ 

ii 

u 

slong TXTStartWord ( CharRecordP, long, int eleminateLeadingSpaces ); 

flbng IXTEndWord( CharRecordP, long ); 

aong T>CrStartSelectableWord( CharRecordP, long ); 

? &ng IXTEndSelectableWord( CharRecordP, long ); 

LMicroPoint UnivStringWidth ( stUnivString&, MicroPoint [ ] , TypeSpec& ); 

^jjjifdef jis4051 

Clool TXTSameRenMo j i ( CharRecordP start, CharRecordP chl, CharRecordP ch2 ); 

#else 

inline Bool TXTSameRenMo j i ( CharRecordP, CharRecordP, CharRecordP ) 
{ 

return false; 

} 

#endif 

/» BSBBBBSBSSBSBBBOBSSSasBBBeaBSBBBBBBSBBSBBBaBasBBaiSBBSBBBStlSBSSSaaBBn */ 

/* aBBSBBBBBBSBnaaaBdaaansaaoBcasaBSBBBBBaaaBeBaBSsaBassBaaeactaiesBBeBBE */ 

class scContUnit : public scTBObj { 

scDECLARE.RTTI ; 
public : 

// use this to allocate new content units where the content unit 
// has been overridden on the outside, 
static scContUnit* Al locate ( TypeSpecS spec, 

scContUnit* cu « 0, 

long ct - 0 ) ; 

scContUnit (); 

scContUnit ( TypeSpec& spec, 

scContUnit* cu - 0, 
long ct « 0 ) ; 



sBBnaaaaBB */ 



File: Work\CrtPrt\Stonehnd\Scf ileio .cpp Pg: 1 



/« 



File: pfileio.c 

SHeader: /Pro j ect s/Too 1 box/ct/SCF ILEIO. CPP 2 5/30/97 8:45a Wraanis $ 
Contains: Implementation of intdependent byte order code. 
Written by: Coletti 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 



#include "scf ileio .h" 
^include "scexcept.h" 
#include "scmem.h" 
#include <string.h> 

#if 0 

include "cvtf loat ,h M 
Ifendif 

^ // the string that goes into the header 
Static char *byteOrderStr [ ] - { 

fii 

B = "Intel86", 
' = "Motor 68", 
Ld NULL 



\fr •/ 

m/ 

u 

*, i // Intel to Motorola 

Refine SC_I2M_MKW0RD(p) (((ushort) ((p)[l]) « 8 ) | ( (p) [0] )) 
l& // Motorola to Intel 

^define SC_M2I_MKW0RD(p) (((ushort) ((p)[0J) « 8 ) | ( (p) [1] )) 

ci 

// Intel to Motorola 
#define SC_I2M_MKLQNG(p) \ 

((long) (ulong)SC„I2M„MKW0RD(p) | ( ( (long) (ulong)SC_I2M_MKW0RD ( (p)+2) ) << 16)) 

// Motorola to Intel 
#define SC_M2I_MKL0NG(p) \ 

((long) (ulong)SC_M2I„MKWORD((p)+2) | ( ( (long) (ulong)SC„M2I_MRW0RD (p) ) << 16)) 

/* */ 

#if defined ( SCWINDOWS ) && ! defined ( JC86_ ) 

#define _XB6_ 1 

#endif 

#if defined ( JC86_ ) 

static int localByteOrder a klntelOrder; 

#define SCPI0J4KW0RD SCJ42I J4KW0RD 
#define SCPI0J4KL0NG SCJ42IJ4KLONG 

#elif defined ( SCMACIOTOSH ) 
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static short local ByteOrder 



torolaOrder; 



#define SCPIO.MRWORD 
#define SCPIOJ4KLONG 

#endif 



SC_I2MJ*KW0RD 
SC„I2M_MKLONG 



#ifndef SCPIO.MKWORD 

#error "A Processor architecture needs to be defined" 
#endif 



/» 

/m 

// code for creating the header 

uchar* BufSet_byteorder ( uchar pbuf [] ) 

{ 

SCmemset{ pbuf, 0, sizeof( ByteOrderStr ) ); 
strcpy( (char*)pbuf, byteOrderStr[localByteOrder] ); 
return pbuf + sizeof( ByteOrderStr ); 



*/ 



// code for extracting the header 

const uchar* Bu f Get_byt eorder ( const uchar 

short* 

C3 



pbuf[], 
byteOrder ) 



in 
ry 



'4 

£3 



if ( !strcmp( (char *)pbuf, byteOrderStr[kMotorolaOrder] ) ) 

*byteOrder • kMotorolaOrder; 
else if ( lstrcmp( (char *)pbuf , byteOrderStr[k Intel Order] ) ) 
•byteOrder « klntelOrder; 

else 

•byteOrder * kNoOrder; 
return pbuf + sizeof( ByteOrderStr ); 



Itjichar* 

u 

H 
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BufSet_char( uchar* dstbuf, 

const uchar* srcbuf, 

size_t bytes, 
eByteOrder ) 



SCmemmove ( dstbuf, srcbuf, bytes ); 
return dstbuf + bytes; 



*/ 



*/ 



const uchar« 



BufGet_char( const uchar* 
uchar* 
size_t 

eByteOrder ) 



SCmemmove ( dstbuf, srcbuf, bytes ); 
return srcbuf + bytes; 



srcbuf, 
dstbuf, 
bytes. 



/* 



*/ 



// write out a short to a byte buffer 



uchar* 
{ 



BufSet_short ( uchar 
ushort 
eByteOrder 



pbuf [2], 
s, 

desiredByteOrder ) 



if ( desiredByteOrder !» local ByteOrder ) { 
switch ( desiredByteOrder ) { 
case kMotorolaOrder: 
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\l 2MJ4KWORD ( ( uchar* ) &s ) ; 
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• 



•pbuf = (ucha 
break; 



case k Intel Order: 

•pbuf » (uchar)SC_M2I_MKWORD((uchar»)&s); 
break; 

default: 

*(ushort*)pbuf = s; 



} 



} 

else 

*(ushort*)pbuf - s; 
return pbuf + sizeof( ushort ); 



// read out a short from a byte buffer 
const uchar* 



{ 



13 

tif 



BufGet_short ( const uchar 
u short & 
eByteOrder 



if ( local By teOrder !» byteOrder ) 
s = (ushort)SCPI0J4KW0RD(abuf); 

else 

s - »(ushort»)abuf ; 



abuf [2], 
s, 

byteOrder ) 



return abuf+2; 



kH^ write out a long to a byte buffer 



-^char* 



id 

jjs 

b 



BufSet„long( uchar pbuf [4], 

ulong 1, 

eByteOrder desiredByteOrder ) 



if ( desiredByteOrder !° local ByteOrder ) { 
switch ( desiredByteOrder ) { 
case kMotorolaOrder: 



} 



* (ulong*) pbuf 
break ; 

case klntelOrder: 
*(ulong*)pbuf 
break; 

default : 

* ( (ulong* )pbuf) 



SC_1 2MJ4KLONG ( ( uchar* ) &1 ) ; 



SC_M2I_MKL0NG ( (uchar* ) &1 ) ; 



1; 



} 

else 

*( (ulong*)pbuf ) - 1; 
return pbuf + sizeof( ulong ); 



/» 



/* read out a long from a byte buffer */ 



const uchar* 



BufGet_long( const uchar 
ulong& 
eByteOrder 



if ( local ByteOrder !» byteOrder ) 
1 - SCPI0J4KL0NG(abuf); 

else 

1 » *(ulong*)abuf ; 



abuf [4], 
1, 

byteOrder ) 



*/ 
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return abuf+4; 



} 



static const uchar* BytesTo Intel Double ( const REALBUF 

REAL& 

{ 

uchar *ptr » (uchar *)&r; 

switch ( sizeof( REAL ) ) { 
case 10: 

ptr[9] » rbuf[2]; 

ptr[8] « rbuf[3]; 

break; 
case 8: 

break ; 
default : 

scAssert ( 0 ) ; 

break ; 

} 



Q 



\u } 



rbuf , 
r ) 



Ptr[7] 
ptr[6] 
ptr[5] 
ptr[4] 
ptr[3] 
ptr[2] 
ptr[l] 
ptr[0] 



rbuf [4]; 
rbuf 15]: 
rbuf [6], 
rbuf [7] 
rbuf [8] 
rbuf [9]; 
rbuf [10]; 
rbuf [11]; 



return rbuf + 12; 



static uchar* 



U 

s : 

n 



IntelDoubleToBytes( REALBUF rbuf, 
REAL r ) 



uchar *ptr » (uchar *)&r; 

switch ( sizeof( REAL ) ) { 
case 10: 

rbuf[0] - ptr[9]; 

rbuffl] - ptr[8]; 

rbuf [2] - ptr[9]; 

rbuf [3] » ptr[8]; 
break; 



case 8: 

rbuf[0] » ptr[7]; 
rbuf[l] » ptr[6]; 
rbuf [2] - ptr[7]; 
rbuf[3] » ptr[6]; 
break ; 



} 



default: 

scAssert ( 0 ) : 
break; 



rbuf [4] - 
rbuf[5] - 
rbuf [6] - 
rbuf [7] - 
rbuf [8] = 
rbuf [9] ~ 
rbuf [10] - 
rbuf[ll] - 



ptr[7]; 
ptr[6]; 
ptr[5]; 
ptr[4]; 
ptr[3]; 
ptr[2]; 
- ptr[l]; 
1 ptr[0]; 



return rbuf + 12; 
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static const uchar* BytesToMotorolaDouble ( const REALBUF 

REAL& 

{ 

uchar *ptr « (uchar »)&r; 

switch ( sizeof( REAL ) ) { 
case 12 : 

SCmemcpy( ptr, rbuf, sizeof( REAL ) ); 
break; 



rbuf , 
r ) 



#if 0 



*#else 
k*endi£ 



case 10: 
ptr[0 
ptr[l 
ptr[2 
ptr[3 
ptr[4 
ptr[5 
ptr[6 
ptr[7 
ptr[8 
ptr[9 
break 

case 8: 



rbuf [0] 
rbuf [1] 
rbuf [4] 
rbuf [5] 
rbuf [6] 
rbuf [7] 
rbuf [8] 
rbuf [9] 
rbuf [10]; 
rbuf [11]; 



// Convert extended representation to 64 bit IEEE format 



{ 



} 



long extendedRep[3]; 

SCmemcpy( extendedRep, rbuf, 12 ); 

CvtFloat96To64( r, extendedRep ); 



raise ( scERRnotlmplemented ); 

break; 
default: 

scAssert ( 0 ) ; 
break; 



return rbuf + 12; 



C3 

£3 



static uchar* 
{ 



MotorolaDoubleToBytes( REALBUF rbuf, 

REAL r ) 



uchar *ptr » (uchar *)&r; 

switch ( sizeof( REAL ) ) { 
case 12: 

SCmemcpy( rbuf, ptr, sizeof( REAL ) ); 
break; 



#if 0 



case 10: 

rbuf [0] 
rbuf [1] 
rbuf [2] 
rbuf [3] 
rbuf [4] 
rbuf [5] 



ptr[0]; 
Ptr[l] 
ptr[0] 
ptr[l], 
Ptr[2] ( 
_ . Ptr[3]; 
rbuf [6] = ptr[4]; 
rbuf[7] - ptr[5] 
rbuf [8] « ptr[6]i 
rbuf [9] « ptr[7], 
rbuf [10] = ptr[8]; 
rbuffll] - ptr[9]; 
break ; 
case 8: 

// Convert 64 bit representation to extended 

{ 
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long exten^^Bep[3] ; 

CvtFloat64WK( extendedRep, &r ); 
SCmemcpy( rbuf, extendedRep, 12 ); 

} 

raise ( scERRnot Implemented ); 
break; 



#else 
#endif 



default: 

scAssert ( 0 ) ; 
break; 

} 

return rbuf + 12; 



/» write out a REAL to a byte buffer •/ 

uchar* BufSet_REAL( uchar rbuf [12], 

REAL d, 
eByteOrder ) 



{ 



switch ( local By teOrder ) { 

case klntelOrder: 

// convert intel long double to bytes 
IntelDoubleToBytes ( rbuf, d ); 
break; 



m 



case kMotorolaOrder : 

// convert motorla long double to bytes 
h.1 MotorolaDoubleToBytesf rbuf, d ); 

break; 

s 4 default: 
□ scAssert ( 0 ); 

break; 



■■>..i 

l} 



} 

return rbuf + 12; 



#/ 

jy» read in a REAL from a byte buffer »/ 

h 

'-const uchar* BufGet REAL ( const uchar rbuf [12], 

REAL& r, 
eByteOrder ) 

{ 

switch ( localByteOrder ) { 
case kMotorolaOrder: 

BytesToMotorolaDouble( (uchar *)rbuf, r ); 
break; 

case klntelOrder: 

BytesToIntelDouble( (uchar *)rbuf, r ); 

break; 
default: 

break ; 

} 

return rbuf + 12; 

} 

/# »/ 

»/ 



// write a quick long 

void ReadLong( long& val, 

APPCtxPtr ctxPtr, 

IOFuncPtr readFunc, 
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SHeader: /Projects/Toolbox/ct/SCCTxTE .H 2 5/30/97 8:45a Wmanis $ 
Contains: Character types. 
Written by: Man is 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

••*••*•***•»•*•«•••»•••**•****««••••••»•»••*« 

#ifndef H_SCCTYPE 
#define _HJSCCTYPE 

#ifndef JftJSCIYPES 
#i ncl ude "sctypes . h " 
#endif 

^define sc_ASCII 0x0001 

Refine scJSPACE 0x0002 

^define sc„PUNC 0x0004 

f&efine sc_DIGIT 0x0008 

^fdefine sc_ALPHA 0x0010 

Hfcdefine sc^ACCENT 0x0020 

^define sc_SYMB0L 0x0040 

define scJIOCASE 0x0080 

ffdefine scJJPCASE 0x0100 

^define sc_LIGATR 0x0200 



^ejxtern unsigned short sc_CharType [ ] ; 

hi 

*7* for now we assume everything above 255 is alpha, with release of kanji and other 
versions this will change 

C3»/ 



redefine CTIsAlpha (ch) 
*#define CTIsSelectable(ch) 


( 


(ch) 


< 


256 


? 


[ sc. 


„CharType[ (ch)+l] 


Sc 


(sc_ALPHA) ) 


: true ) 


( 


(ch) 


< 


256 


? 


[ sc. 


„CharType[(ch)+l] 


£< 


(sc_ALPHA|sc_DIGIT) ) : true ) 


#define CTIsDigit (ch) 


( 


(ch) 


< 


256 


? 


[ sc. 


_CharType[ (ch)+l] 


Sc 


(sc DIGIT) ) 


false ) 


#define CTIsPunc(ch) 


( 


(ch) 


< 


256 


? 


[ sc. 


_CharType[ (ch)+l j 


Sc 


(sc PUNC) ) : 


false ) 


#define CTIsUpperCase (ch) 


( 


(ch) 


< 


256 


? 


' sc. 


_CharType[ (ch)+l] 


Sc 


(sc UPCASE) ) 


: false ) 


#define CTIsLowerCase(ch) 


( 


(ch) 


< 


256 


? 


i sc. 


.CharType [ (ch ) + 1 ] 


Sc 


(sc LOCASE) ) 


: false ) 


#define CTIsSpace (ch) 


( 


(ch) 


< 


256 


? 


[ sc_ 


.CharTypef (ch)+l] 


Sc 


(sc SPACE) ) 


: false ) 


#define CTIsSymbol (ch) 


( 


(ch) 


< 


256 


? 


! sc. 


.CharTypef (ch)+lj 


Sc 


(sc_SYMB0L) ) 


: false ) 


#define CTIsVisible (ch) 


( 


(ch) 


< 


256 


? 


; sc. 


.CharTypef (ch)+l] 


Sc 


(sc _ALPHA | sc_D I GIT | sc_ACCEKIT | sc_P 



UNC|sc_SYMBOL) ) : true ) 
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#define CTIsDropCapable (ch) ( CTIsVisible ( ch ) ScSc ! CTIsSpace ( ch ) ) 



Bool CTStoreAll( UCS2 ); 

Bool CTIsFracBar( UCS2 ); 

UCS2 CIToLowerf UCS2 ); 

UCS2 CTToUpper( UCS2 ); 

UCS2 CTToggleCase( UCS2 ); 



#endif /« JLSCCTYPE «/ 
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/# B S B B C 



*/ 



#if SCDEBUG > 1 

scChar* scXRect : :DebugStr ( scChar* buf, int factor ) const 
{ 

#if defined (SCWINDOWS) 

wsprintf( buf, scString( " (2d, Zd, *d, 5£d) " ), xl / factor, yl / factor, x2 / factor, y2 / facto 

r ); 
#else 

sprintf( buf, scStringf " (£d, %d, J£d, ^d) 11 ), xl / factor, yl / factor, x2 / factor, y2 / factor 

); 

#endif 

return buf ; 

} 

#endif 

/# oaaoananassenasatiDaatiefflamomDOanoosasiaaQoaesanaDaBsiiDaotioannoaDBnaaon * / 

Bool scXRect :: Valid ( eCoordSystem coordSys ) const 
{ 

switch ( coordSys ) { 
case eFirstQuad: 

return xl O x2 && yl >«=> y2; 
case eSecondQuad: 
£3 return xl >- x2 && yl >» y2; 

■ % j case eThirdQuad: 

Ifi return xl >- x2 && yl <« y2; 

5| ? case eFourthQuad: 

[L? return xl <» x2 && yl <=y2; 

U > 

e.| return false; 

jf /j# aaBaaeasnBaaaaDaeaasoaooosaoBaBsnaoaaaaeasaanaonaoaoooooDaanaaesigBQn » / 

*yoid scXRect :: Scale ( TenThousandth factor ) 

4if SCDEBUG>2 

I , \ scAssert( Valid() ); 

5 v ?endif 

f & 

£3 xl o scRoundMP( (REAL)xl * factor / 10000.0 ); 
H x2 = scRoundMP( (REAL)x2 * factor / 10000.0 ); 

yl - scRoundMP( (REAL)yl * factor ✓ 10000.0 ); 

y2 = scRoundMP( (REAL)y2 « factor / 10000.0 ); 

} 

/* eeDaasaaDSBBBeBDBanasasaooaBBaBBBnaBDcaBaBBDBBDBaoasesaBasaDOBpsBBBB */ 

void scXRect :: Scale ( REAL factor ) 
{ 

#if SCDEBUG>2 

scAssert( Valid() ); 
#endif 

xl * scRoundMP( (REAL)xl * factor ); 
x2 - scRoundMP( (REAL)x2 » factor ); 
yl « scRoundMP( (REAL)yl * factor ); 
y2 « scRoundMP( (REAL)y2 » factor ); 

} 

/* oBDaBBBaaoaaBBBaaaDDSaBaasBaBosaaBBDaaaBonaBiBBBBaaaBBBBaaeaBoaaeBana »/ 

void scXRect : :FourthToThird( MicroPoint w ) 
{ 

scMuPoint ptl, 
pt2; 
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#if SCDEBUG>2 

scAssert( Valid () ); 
#endif 

ptl.x - x2; 
ptl.y = yl; 

ptl.FourthToThird( w ); 

pt2.x " xl; 
pt2.y - y2; 

pt2.FourthToThird( w ); 

xl - ptl.x; 
yl - ptl.y; 

x2 » pt2.x; 
y2 = pt2.y; 

#if SCDEBUG>2 

scAssert ( Valid ( ) ) ; 
#endif 
} 

void scXRect : :ThirdToFourth ( MicroPoint w ) 
{ 

f3 scMuPoint ptl, 
U pt2; 

Clif SCDEBUG>2 

f[j scAssert ( Valid () ); 

.Send if 



ptl.x « xl; 
ptl.y « y2; 

ptl.ThirdToFourth( w ); 

pt2.x - x2; 
pt2.y « yl; 



y pt2.ThirdToFourth( w ); 



£3 xl - ptl.x; 
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yl - ptl.y; 

x2 - pt2.x; 
y2 » pt2.y; 



#if SCDEBUG>2 

scAssert ( Val id ( ) ) ; 
#endif 
} 

/ fk aaaBCBBaaesBSSaBBoanaaassaBStsoaBeiaasaasa 

void scXRect : :FirstToFourth ( MicroPoint d ) 
{ 

#if SCDEBUG>2 

scAssert ( Valid() ); 
#endif 

yl - -yl; 
y2 « -y2; 

#if SCDEBUG>2 

scAssert ( Valid () ); 
#endif 

} 
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void scXRect : :FourthToFirst ( MicroPoint d ) 
{ 

#if SCDEBUG>2 

scAssert( Valid() ); 
#endif 

yl — d; 
y2 — d; 

#if SCDEBUG>2 

scAssert( Valid() ); 
#endif 
} 

/* BaanonBooaensaaesoaaaaBtiaDnaeotaaDBaaaseeBoiiBmaDDaiiaeaaaaBaaaDaaaeoBa */ 

/# sBaBsaBSBOBsaBaBBBaBBBBSBBBBBsaaasoaaaaeBBBBBBBBSBBBBBBaaHBfflcssBaaBB »/ 

/« BaaaaBaaB&BBBBSBBSB&aBsaBBSBeBBBsaeSBDSBBBBaaBBBSBBSBBBacaBtissBeassa * / 

/» BaBessaaB»B8DBSBoaBR CRLURECT oooaoooooBooaaoaoadoOBosBaBOB •/ 

/» aBBBaaBBBBBaBBsaeoBSBBBBSBaaBBaBBaBBaoBaeeaBBBoaaaBBeaaaBaBBsaBBBBSB */ 

/» BBBBSBBBaaeBaBBBSBaaasBoasSBBeBBSBSsaaaBaaacBBBSBasaBQBBaaBOBaaaBBBB 41/ 



scRLURect : : scRLURect ( ) 
{ 

.„ // in an at temp to insure that we can freely convert 

// back and forth between these we do the following text 
^3 scAssert( sizeof( scRLURect ) « sizeof( RLU ) * 4 ); 

all Invalidated ) ; 

j^/j* BBBBSSBBBBBaBCSIBCaSSSBttCSBSSBaBBBaBBBBBSBaeBBBBBBBBBffiBBaBBBSasaBSBBBSBa */ 

ScRLURect :: scRLURect ( const scRLURect& rlurect ) 

ci 

rluLeft » rlurect .rluLeft ; 

rluTop « rlurect .rluTop; 

« rluRight «■ rlurect .rluRight ; 

rluBottom « rlurect .rluBottom; 

5 - 

a* 7* BBaa8B33BBBaB8saDBaBaBoaBasBBaBBBBBBBBBBaaaBBaaaBeaa3BBasaaBBcaBBBBBBB * / 

C3 

{void scRLURect :: Set ( RLU left, RLU top, RLU right, RLU bottom ) 

i 

rluLeft = left; 
rluTop - top; 

rluRight - right; 
rluBottom * bottom; 

} 

Bool scRLURect :: Valid ( eCoordSystem coordSys ) const 
{ 

switch ( coordSys ) { 
case eFirstQuad: 

return rluLeft <= rluRight && rluTop >- rluBottom; 
case eSecondQuad : 

return rluLeft >- rluRight && rluTop >■=> rluBottom; 
case eThirdQuad: 

return rluLeft >■ rluRight && rluTop <• rluBottom; 
case eFourthQuad: 

return rluLeft <■ rluRight && rluTop <- rluBottom; 

} 

return false; 

} 



/* BBBBBBSaBBBBBB 



aBBBBBBBaBBBaBBBBBBBBBBBBBBBBBaBBSBBBBBBBBBBBSaB */ 
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void scRLURect: : Invalidate ( )^ 
{ 

Set( SHRTJ4AX, SHOT MAX, SHRT_MIN , SHRTJ4IN ); 

} 

/# oaoniDDaBsnoaaaoaoiiaasaoDnaaBaBcBiiBBaEiaBeaBaaDDeDtiDDBBSooBBnaBBsaeaaann * / 

void scRLURect: :Translate( RLU h, RLU v ) 
{ 

rluRight « rluRight + h; 
rluLeft - rluLeft + h; 
rluTop « rluTop + v; 

rluBottom - rluBottom + v; 

} 

void scRLURect : :FirstToFourth( RLU ) 
{ 

rluTop » -rluTop; 

rluBottom * -rluBottom; 

} 

/* aaaaseatiBaaiiieDRnassnBSOBaanBaBettnaBaaaoasaaoaBoaseaanooDaBaqonnnonsB * / 

void scRLURect : :FourthToFirst( RLU ) 
{ 

rluTop a -rluTop; 

rluBottom ■ -rluBottom; 



*v3bid scRLURect : :RLURomanBaseLineToCenter( void ) 

Lti 

J" 5 rluRight = (rluRight - rluLeft)/2; 

"'j rluLeft » 0 - rluRight; 

C3 

3 //use bottom as temp variable to save height 

rluBottom » rluTop - rluBottom; 

rluTop » scBaseRLUsystem - ( rluTop + RLU_BASEfmBottom) ; 

rluBottom ■=« rluTop + rluBottom; //Bottom has character height 



LJ 



5 e 
F 3 

~ ^* ocscaajssoaieaoaitaaaeatataajejecaoBStSDOiatsesMOttawBwssaaoBaBrjcjocjo™ * / 
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£9oid scRLURect: :RLURomanBaseLineToLeft( void ) 

1 

rluRight = (rluRight - rluLeft); 
rluLeft - 0; 

//use bottom as temp variable to save height 
rluBottom » rluTop - rluBottom; 

rluTop = scBaseRLUsystem - ( rluTop + RLU_BASEfmBottom) ; 

rluBottom « rluTop + rluBottom; //Bottom has character height 

} 

/» aoaBBBBOBaoenaniioBBnBnSBOBCBaBansoaaBBceaiaooooBBnoBniDaqBmnonnoBSaBiiaaB »/ 

void scRLURect : :RLURomanBaseLineToRight( void ) 
{ 

rluLeft « Q - (rluRight - rluLeft); 

rluRight - 0; 

rluBottom « rluTop - rluBottom; //use bottom as temp variable to save height 

rluTop - scBaseRLUsystem - ( rluTop + RLU_BASEfmBottom) ; 

rluBottom ■ rluTop + rluBottom; //Bottom has character height 

} 



oaaaaoaaB */ 



void scRLURect: :RLURoinanBaseLineToTop( void ) 
{ 
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void 
{ 

} 

/» »= 

void 
{ 



scRLURect : :RLURomanBaseLineToMiddle( void ) 
Translate ( 0, -RLU„BASEfmTop/2 ); 



} 



scRLURect : :RLURomanBaseLi neToBot torn ( void ) 
Translate ( 0, RLUJBASEfmBottom ); 



/• aaoemmosonDBMBnanRigDeDaatsdiiiaoDeaoattatii 

#if 0 

void RectTest( ) 
{ 

scXRect xrect ( 100, 100, 200, 200 ); 
scMuPoint ptl; 

scMuPoint pt2; 



cn 

til 



'■hi 



ptl.x 

pti.y 



20; 
80; 



pt2 - ptl; 

xrect .FourthToThird( 1000 ); 
xrect .ThirdToFourth( 1000 ); 

ptl.FourthToThird( 1000 ); 
ptl.ThirdToFourth( 1000 ); 



P 



ptl.FourthToThird( 100 ); 
ptl.ThirdToFourth( 100 ); 



ptl.FourthToThird( 200 ); 
ptl.ThirdToFourth( 200 ); 



ptl.FourthToThird( 500 ); 
ptl.ThirdToFourth( 500 ); 



scAssert( ptl «• pt2 ); 

} 

#endif 

/* aeBaBtsaBasaBescBaaEaeaDBBBBriaoatteosaBaonnsnDnBBBBeBBiiQBasBaannsasaiiaBB * / 
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eByteOrder ^^p)rder ) 
uchar buf [4] ; 

raise_if( (*readFunc)( ctxPtr, buf, 4 ) 1« 4, scERRfil© ); 
ulong uval; 

BufGet_long( buf, uval, byteOrder ); 
val » (long) uval; 

} 

/* «/ 

// write a quick long 

void WriteLong( long val, 

APPCtxPtr ctxPtr, 
IOFuncPtr writeFunc, 
eByteOrder byteOrder ) 

{ 

uchar buf [4] ; 

BufSet_long( buf, val, byteOrder ); 

raise_if( (*writeFunc) ( ctxPtr, buf, 4 ) I « 4, scERRfile ); 

} 

/* */ 

void ReadBytes( uchar* buf, 

APPCtxPtr ctxPtr, 

#a IOFuncPtr readFunc, 

long numbytes ) 

fr\ raise_if( (*readFunc)( ctxPtr, buf, numbytes ) !« numbytes, scERRfile ); 

*/ 

Jvpid WriteBytes( const uchar* buf, 
^ APPCtxPtr ctxPtr, 

£3 IOFuncPtr writeFunc, 

long numbytes ) 

*4 

^ raise_if( (*writeFunc) ( ctxPtr, (void*)buf, numbytes ) !» numbytes, scERRfile ); 

H 
U 

\i — — " ' 

C3 
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............ 0 

File: SC-CharMap.c 

SHeader: /Trojects/Toolbox/ct/SC_CHMAP.CPP 6 5/30/97 8:45a Wmanis $ 
Contains: Character mapping between client and toolbox. 
Written by: Manis 

Copyright (c) 1989-94 Stonehand Inc., of Cambridge, MA. 
All rights reserved. 

This notice is intended as a precaution against inadvertent publication 
and does not constitute an admission or acknowledgment that publication 
has occurred or constitute a waiver of confidentiality. 

Composition Toolbox software is the proprietary 
and confidential property of Stonehand Inc. 

*»«**«*••**••»*«••«»•»*•*•«*•«•*•«**••»*»•***»*«*•«««***«««*/ 



/< 



to turn off any fo the functions in thismodule define one or 
more of the following values int SCAPPTypes . h , they will turn 
off the appropriate function . 

f= , noCMctToAPP 
noCMappToCT 
%J noCMmakeKeyRecordTwo 
£n noCMcontent 



f j 



^nclude "sccharex.h" 

^define CTL( ch ) ( (ch) - '@' ) 

3 ~: 

„/**»»•*•••***•••**«•***»•«•**«••**•*•*»*»**•» 

jU* this provides character mapping between Mac -keyboard/application 
to the Composition Toolboxt 

H*/ 

Igifndef noCMappToCT 

j$CS2 CMappToCTf UCS2 ch ) 

L| 

Ij switch ( ch ) { 

case OxOD: return scParaSplit; /* mac enter «/ 

case 0x08: return scBackSpace; /* mac delete »/ 

^ case 0x09: return scTabSpace; /« mac tab */ 

case OxOa: return scHardReturn; /« mac return */ 



default: return (UCS2)ch; 

} 

} 

#endif /* noCMappToCT */ 

/••**••••••«•*«•••••»«•••••••*•••».••»••.•«*•*•*««•••••• 

/* provides Compos i ton Toolboxt to application mapping, 

* used pre AppDrawString for rationalize character mapping, 

* used to control characters passed thru, typically used 

* to control things like show invisibles, may be used for 

« other types of character conversion depending on output device 
*/ 



tfifndef noCMctToAPP 

UCS2 CMctToAPPf UCS2 ch ) 
{ 

switch ( ch ) { 
default : 
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return ch; 
case scNoBreakHyph : 
return ' - 1 ; 



#if 1 



#else 



case scTabSpace: 

return 0; 
case scParaEnd: 

return 0; 
case scEndStream: 

return 0; 
case scHardReturn : 

return 0; 

case scTabSpace: 

return OxOObb; 
case scParaEnd: 

return 0x00b6; 
case scEndStream: 

return Ox 00a 5; 
case scHardReturn: 

return 'H' ; 



#endif 



case scEmSpace: 

case scEnSpace: 

case scFigureSpace : 

case scThinSpace: 
?s% case scF ixRel Space : 

hJ case scFixAbsSpace: 

^3 case scFillSpace: 

£n case scVertTab: 

:// case scNoBreakSpace : 

\y case scQuadCenter : 

\j case scQuadLeft: 

i^j case scQuadRight: 

case scQuad Justify : 
_ J ! case scEmptySpace : 

£3 return ' ' ; 

ci 

"4©ndif noCMctToAPP */ 

1:1 
e. 

/***»*»*«»«**••»*«*••«•««»«•**•»*****« »«****^ 

[7« defines whether keyboard input changes model & selection or selection 
[3* only. Called from within Composition Toolboxt prior to keyboard input 
f3* to determine what is about to happen 

#ifndef noCMcontent 

int CMcontent( UCS2 ch ) 
{ 

switch ( ch ) { 

case scBackSpace: 
case scForwardDelete : 
return -1; 

default: 

return 1; 

case scLe ft Arrow: 
case scRightArrow: 
case scUpArrow: 
case scDownArrow: 
return false; 



#endif /* noCMcontent »/ 
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return p == 
} 

int operator! () const 
{ 

return p_ == 0; 

} 

int operator==( const ConstRefCountPtr<T>& p ) const 
{ 

return p « p.p_; 

} 

int operator! » ( const ConstRefCountPtr<T>& p ) const 
{ 

return p_ != p.p_; 

} 

int operator" ( const T» p ) const 
{ 

return p_ « p; 

} 

int operator! »( const T* p ) const 
{ 

return p_ ! - p ; 

} 



protected : 
T* p.; 



^©Hip 1 ate <c lass T> 

cfoss RefCountPtr : public ConstRefCountPtr<T> { 

RefCountPtr ( T* ptr • 0 ) : 
fU Const Re f Count Ptr <T> ( ptr ){ } 

H "RefCountPtr () { } 
IMr* ptr() const 
{ 

f=i return p_; 

lm } 

5 T* operator->() const 

C3 { 

--.I return p„; 

^*T& operator* () const 
M { 

n return *p_; 

^oid exch(RefCountPtr<T> &p) 
{ 

T* tmp - p.p_; 
p.p- ° p_; 
P_ ■ tmp ; 

#endif 
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// 

// Copyright (c) 1996, StonehafiKnc , All rights reserved. 
// 

#ifndef _H_REFCNT 
#define _H_REFCNT 

// a base class for reference counting 

#ifdef .DEBUG 

void SCDebugBreak ( void ); 
#endif 

class RefCount { 
public: 

RefCount () : refcnt_(0) 
{ 

#ifdef .DEBUG 

magic. » Oxbabaabab; 

#endif 

} 

RefCount (const RefCount &) : refcnt.(O) 
{ 

#ifdef .DEBUG 

magic. = Oxbabaabab; 

#endif 

} 

aavirtual '"'RefCount () 

%J if ( refcnt_ ) 

ffi throw ( -1 ); 

I ~ 

Mint decref() // return 1 if it should be deleted 

{ 

jfrfdef .DEBUG 

C3 static void* test * 0; 

3 if ( this « test ) 

SCDebugBreak ( ) ; 



^ndif 



return --refcnt. < = 0; 

} 



1_ void incref ( ) 

13 { 
Jgifdef .DEBUG 



#endif 



static void* test =0; 
if ( this o « test ) 
SCDebugBreak ( ) ; 

++refcnt_; 

} 



int refcnt() 
{ 

return refcnt.; 

} 

#ifdef .DEBUG 

unsigned magic () 
{ 

return magic.; 

} 

#endif 

private : 
#ifdef .DEBUG 

unsigned magic_; 
#endif 

int refcnt_; 
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////////////////////////////smr> ////// /////////////////////// 

// The following are classes to maintain safe reference count on 
// classes derived from RefCount 




// T must have RefCount as a public base class 
// T may be an incomplete type 

template<class T> 

class ConstRefCountPtr { 

public: 

ConstRefCountPtr () : p_(0) { } 
ConstRefCountPtr ( T* p ) : p_( p ) 
{ 

if ( P- ) 

p_->incref (); 

} 

"ConstRefCountPtr ( ) 
{ 

clear () ; 

} 

ConstRefCountPtr ( const ConstRefCountPtr<T>& p ) : 
P-(P-P-) 

{ 

if (P-P-) 

p.p_->incref () ; 

} 

ConstRefCountPtr<T> &operator-( const ConstRefCountPtr<T> & p ) 
{ 

if ( this !- &p ) { 

if (P-P-) 

p.p_->incref (); 



£3 
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void 



clear() ; 
P- ° p.p_; 

} 

return *this; 



moveTo( ConstRefCountPtr<T> &dst ) 
{ 

if ( this — &dst ) 
return ; 

dst .clear() ; 



} 



dst.p_ » p_; 
P- = 0; 



void 



clear() 
{ 

if ( p_ && p_->decref ()) 

delete p_; 
P_ - 0; 

} 



const T« ptr() const 
{ 

return p_; 

} 

const T* operator-> ( ) const 
{ 

return p_; 

} 

const T& operator* () const 



return *p_; 



int isNull() const 
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pr^^Bbn state 
aan^roup Gailly 



/* deflate.h — internal compi 

* Copyright (C) 1995-1998 Jean^5up Gailly 

* For conditions of distribution and use, see copyright notice in zlib.h 



/« WARNING: this file should *not* be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 
*/ 

/« @(#) $Id$ «/ 

#ifndef _DEFLATE_H 
#define _DEFLATE_H 

#include "zutil.h" 

/* BnaBasnanoaainisaaDaDaBnaDtiaBBDaaaDnattceaeatinaaiitBMaooeDOBoacaaaooooBaaaDOOBae 

* Internal compression state. 



#define LENGFIH_CODES 29 

/* number of length codes, not counting the special END„BLOCK code */ 



#define LITERALS 256 

/* number of literal bytes 0..255 »/ 



#define L_C0DES ( L ITERALS+ 1+LENGTH_ CODES ) 

/* number of Literal or Length codes, including the END_BLOCK code */ 

Refine D.CODES 30 

*f* number of distance codes »/ 

Wiefine BL„C0DES 19 

v9* number of codes used to transfer the bit lengths */ 

Refine HEAP_SIZE (2«L_C0DES+ 1) 
^ maximum heap size */ 

^define MAX_BITS 15 

All codes must not exceed MAX_BITS bits »/ 

define INIT_STATE 42 
[Refine BUSY„STATE 113 
:fdefine FINISHJ3TATE 666 
Stream status */ 



Data structure describing a single value and its code string. */ 
typedef struct ct_data_s { 
union { 

ush freq; /» frequency count */ 

ush code; /« bit string */ 

} fc; 
union { 

ush dad; /* father node in Huffman tree »/ 

ush len; /* length of bit string «/ 

} dl; 
} FAR ct_data; 



#define Freq fc.freq 
^define Code fc.code 
#define Dad dl .dad 
#define Len dl.len 



typedef struct static_tree_desc_s static_tree_desc; 



typedef struct tree_desc_s { 

ct_data *dyn_tree; /* the dynamic tree */ 

int raax_code; /« largest code with non zero frequency «/ 

static_tree_desc *stat_desc; /» the corresponding static tree */ 
} FAR tree_desc; 
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typedef ush Pos; 
typedef Pos FAR Posf ; 
typedef unsigned IPos; 

/* A Pos is an index in the character window. We use short instead of int to 
* save space in the various tables. IPos is used only for parameter passing. 
*/ 

typedef struct interna Instate { 

z_streamp strm; /» pointer back to this zlib stream »/ 

int status; /* as the name implies */ 

Bytef «pending_buf ; /» output still pending «/ 
ulg pending_buf — size; /* size of pending_buf */ 

Bytef *pending_out; /« next pending byte to output to the stream */ 

int pending; /* nb of bytes in the pending buffer */ 

int noheader; /* suppress zlib header and adler32 •/ 

Byte datatype; /« UNKNOWN, BINARY or ASCII •/ 

Byte method; /• STORED (for zip only) or DEFLATED */ 

int last_flush; /* value of flush param for previous deflate call »/ 

/* used by deflate.c: */ 

ulnt w_size; /« LZ77 window size (32K by default) */ 

ulnt w_bits; /» log2(w_size) (8.. 16) */ 

ulnt w _mask; /* w_size - 1 */ 

Bytef "window; 

/« Sliding window. Input bytes are read into the second half of the window, 

* and move to the first half later to keep a dictionary of at least wSize 
^3 * bytes. With this organization, matches are limited to a distance of 
^3 » wSize-MAX_MATCH bytes, but this ensures that 10 is always 

» performed with a length multiple of the block size. Also, it limits 

* the window size to 64K, which is quite useful on MSDOS. 

* To do: use the user input buffer as sliding window. 
*/ 



fU 
U 



ulg window_size; 

'""4 /• Actual size of window: 2*wSize, except when the user input buffer 
jp * is directly used as sliding window. 



Posf *prev; 

/« Link to older string with same hash index. To limit the size of this 

• array to 64K, this link is maintained only for the last 32K strings. 

* An index in this array is thus a window index modulo 32R. 



Posf «head; /» Heads of the hash chains or NIL. »/ 

ulnt insjh; /* hash index of string to be inserted »/ 

ulnt hash_size; /« number of elements in hash table */ 

ulnt hash_bits; /* 1 og 2 (hashes ize) */ 

ulnt hash_mask; /» hash_size-l */ 

ulnt hash_shift; 

/* Number of bits by which ins_h must be shifted at each input 

* step. It must be such that after MIN_MATCH steps, the oldest 

* byte no longer takes part in the hash key, that is: 

* hash„shift * MINJ4ATCH >« hash_bits 
*/ 

long block_start; 

/* Window position at the beginning of the current output block. Gets 

* negative when the window is moved backwards. 
*/ 

ulnt match_length; /* length of best match */ 

IPos prev_match; /» previous match */ 

int ma tch_a vail able; /» set if previous match exists */ 

ulnt strstart; /« start of string to insert */ 

ulnt match_start; /* start of matching string »/ 

ulnt lookahead; /« number of valid bytes ahead in window «/ 
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ulnt prev_length; 

/* Length of the best matcfi^K previous step. Matches not greater^han this 

* are discarded. This is used in the lazy match evaluation. 
«/ 

ulnt max_chain_length; 

To speed up deflation, hash chains are never searched beyond this 

* length. A higher limit improves compression ratio but degrades the 

* speed. 
*/ 

ulnt max_lazy_match; 

/* Attempt to find a better match only when the current match is strictly 
» smaller than this value. This mechanism is used only for compression 

* levels >« 4. 
•/ 

define max_insert_length max„lazy_match 

/* Insert new strings in the hash table only if the match length is not 

* greater than this length. This saves time but degrades compression. 

* max_insert„length is used only for compression levels <- 3. 
»/ 

int level; /* compression level (1..9) */ 
int strategy; /* favor or force Huffman coding*/ 

ulnt good_match; 

/» Use a faster search when the previous match is longer than this «/ 

int nice_match; /« Stop searching when current match exceeds this */ 

/* used by trees . c : */ 
/* Didn't use ct_data typedef below to supress compiler warning •/ 
struct ct_data_s dyn_ltree[HEAP_SIZE] ; /« literal and length tree */ 
struct ct_data„s dyn_dtree [ 2*D_C0DES+ 1 ] ; /• distance tree «/ 
struct ct_data_s bl_tree[2*BL_C0DES+l] ; /* Huffman tree for bit lengths */ 

struct tree_desc_s l_desc; /» desc. for literal tree «/ 

struct tree_ desc_s d_desc; /* desc. for distance tree */ 

struct tree_desc_s bl_desc; /* desc. for bit length tree */ 

ush bl_counttMAX_BITS+l]; 

/* number of codes at each bit length for an optimal tree */ 

int heap[2*L_C0DES+l] ; /* heap used to build the Huffman trees */ 

int heap_len; /» number of elements in the heap */ 

int heap_max; /* element of largest frequency */ 

/* The sons of heapfn] are heap[2*n] and heap[2*n+l]. heap[0] is not used. 

« The same heap array is used to build all trees. 

*/ 

uch depth [2*L_C0DES+1] ; 

/* Depth of each subtree used as tie breaker for trees of equal frequency 
»/ 

uchf *l_buf; /* buffer for literals or lengths */ 

ulnt lit_bufsize; 

/* Size of match buffer for literals/lengths. There are 4 reasons for 

* limiting lit_bufsize to 64K: 

* - frequencies can be kept in 16 bit counters 

» - if compression is not successful for the first block, all input 

* data is still in the window so we can still emit a stored block even 

* when input comes from standard input. (This can also be done for 

* all blocks if lit_bufsize is not greater than 32K.) 

* - if compression is not successful for a file smaller than 64K„ we can 

* even emit a stored file instead of a stored block (saving 5 bytes) . 
» This is applicable only for zip (not gzip or zlib) . 

« - creating new Huffman trees less frequently may not provide fast 

* adaptation to changes in the input data statistics. (Take for 

* example a binary file with poorly compressible code followed by 

* a highly compressible string table.) Smaller buffer sizes give 

* fast adaptation but have of course the overhead of transmitting 

* trees more frequently. 
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* - I can't count abovel 
«/ 

ulnt last_lit; /* running index in l_buf »/ 



ushf *d_buf; 

/* Buffer for distances. To simplify the code, d_buf and l_buf have 

* the same number of elements. To use different lengths, an extra flag 

* array would be necessary. 
*/ 



ulg opt_len; /» bit length of current block with optimal trees «/ 

ulg static_len; /* bit length of current block with static trees */ 

ulnt matches; /* number of string matches in current block */ 

int last_eob_len; /* bit length of EOB code for last block */ 

#ifdef DEBUG 

ulg compressed_len; /* total bit length of compressed file mod 2 A 32 */ 
ulg bits_sent; /» bit length of compressed data sent mod 2^32 */ 

#endif 

ush bi_buf; 

/* Output buffer, bits are inserted starting at the bottom (least 

* significant bits). 
*/ 

int bi„valid; 

/* Number of valid bits in bi_buf . All bits above the last valid bit 

* are always zero. 

C3 " 

hp FAR deflate_state; 

m 

: *ff Output a byte on the stream. 

IN assertion: there is enough room in pending_buf . 

f^fiefine put_byte(s, c) {s->pending_buf [s->pending++] - (c);} 
define MIN_LOOKAHEAD (MAXJ4ATCH+MINJ4ATCH+ 1 ) 

s/* Minimum amount of lookahead, except at the end of the input file. 
See deflate.c for comments about the MIN_MATCH+ 1 . 

'"-■J 

[#iefine MAX_DIST(s) ( (s) ->w„size-MIN_LOOKAHEAD) 

id* In order to simplify the code, particularly on 16 bit machines, match 
[«• distances are limited to MAX„DIST instead of WSIZE. 

Q 

/* in trees. c */ 
void _tr_init OF ( (def late_state *s)); 

int _tr_tally OF ( (def late_state *s, unsigned dist, unsigned lc)); 

void _tr_f lush_block OF ( (def late_state *s, charf *buf, ulg stored_len, 
int eof ) ) ; 

void _tr_align OF ( (def late_state *s)); 

void _tr_stored_block OF ( (def late_state *s r charf «buf, ulg stored„len, 

int eof) ) ; 

#define d_code(dist) \ 

((dist) < 256 ? _dist_code[dist] : _dist_code [256+ ( (dist) >>7) ] ) 
/* Mapping from a distance to a distance code, dist is the distance - 1 and 

« must not have side effects. _dist_code[256] and _dist__code[257] are never 

* used. 

*/ 



#ifndef DEBUG 

/* Inline versions of _tr_tally for speed: »/ 

#if defined (GENJTREESJH) || I def ined (STDC) 

extern uch _length_code[] ; 

extern uch _dist_code [ ] ; 
#else 

extern const uch _length_code[ ] ; 
extern const uch _dist_code[ ] ; 
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#endif 




# define _tr_tally_J.it (s, c, flush) \ 
{ uch cc •= (c); \ 

s->d_buf [s->last_lit] - 0; \ 

s->l_buf [s->last_lit++] « cc; \ 

s->dyn_ltree[cc] .Freq++; \ 

flush = (s->last_lit « s->lit_bufsize-l) ; \ 

} 

# define „tr_tally_dist (s, distance, length, flush) \ 
{ uch len ■» (length); \ 

ush dist - (distance); \ 
s->d_buf [s->last_lit] - dist; \ 
s->l_buf [s->last_lit++] « len; \ 
dist--; \ 

s->dyn_ltree[_length_code[len]+LITERALS+l] .Freq++; \ 

s - > dyn_d t ree f decode ( d i st ) ] . Freq++ ; \ 

flush » (s->last„lit s->lit_bufsize-l) ; \ 

} 

#else 

# define __ti_tally__lit (s, c, flush) flush * _tr_tally(s, 0, c) 

# define _tr_tally_dist (s, distance, length, flush) \ 

flush « _tr_tally(s, distance, length) 

#endif 
#endif 
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^^^b the deflation algorithm 
an^roup Gailly. 



/» deflate.c — compress data 

* Copyright (C) 1995-1998 Jean^oup Gailly. 

* For conditions of distribution and use, see copyright notice in zlib.h 
»/ 



/» 



ay. 



ALGORITHM 



» The "deflation" process depends on being able to identify portions 

* of the input text which are identical to earlier input (within a 

* sliding window trailing behind the input currently being processed) . 
* 

» The most straightforward technique turns out to be the fastest for 

* most input files: try all possible matches and select the longest. 

* The key feature of this algorithm is that insertions into the string 

* dictionary are very simple and thus fast, and deletions are avoided 

* completely. Insertions are performed at each input character, whereas 

* string matches are performed only when the previous match ends. So it 

* is preferable to spend more time in matches to allow very fast string 

* insertions and avoid deletions. The matching algorithm for small 

* strings is inspired from that of Rabin & Rarp. A brute force approach 

* is used to find longer strings when a small match has been found. 

* A similar algorithm is used in comic (by Jan-Mark Warns) and freeze 

* (by Leonid Broukhis) . 

* A previous version of this file used a more sophisticated algorithm 

* (by Fiala and Greene) which is guaranteed to run in linear amortized 

* time, but has a larger average cost, uses more memory and is patented. 
« However the F&G algorithm may be faster for some highly redundant 

~=* files if the parameter max_chain_length (described below) is too large. 
!* 
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>/ 



/* @(#) $Id$ */ 
^include "deflate.h" 



const char def late_copyright [ ] = 

" deflate 1.1.3 Copyright 1995-1998 Jean-loup Gailly "; 

/* 

If you use the zlib library in a product, an acknowledgment is welcome 
in the documentation of your product. If for some reason you cannot 
include such an acknowledgment, I would appreciate that you keep this 
copyright string in the executable of your product. 
»/ 



□BaBBeeBBaQODCBnBnBaDsmeDeBBBeaBsaBaBCODSSSDSBcnaoaQOnDOBBBQnanaiisnEBBBaeDS 

* Function prototypes. 
«/ 

typedef enum { 

need_more, /* block not completed, need more input or more output */ 

block_done, /* block flush performed •/ 

f inish_started, /» finish started, need only more output at next deflate */ 

finish_done /* finish done, accept no more input or output */ 
} block_state; 

typedef block„state (»corapress_f unc) OF ( (def late_state *s, int flush)); 
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r^^^ie block state after the call. 



/* Compression function, Retu 
local void fill_window OF ( (def late_state *s)); 

local block_state def late_stored 0F( (def late_state »s, int flush)); 

local block_state deflate_fast OF ( (def late_state *s, int flush)); 

local block_state deflate_slow OF ( (def late_state *s, int flush)); 

local void lm_init OF ( (def late_state *s)); 

local void putShortMSB OF ( (def late_state *s, ulnt b)); 

local void f lush_pending OF ( (z_streamp strm) ) ; 

local int read_buf OF ( (z_streamp strm, Bytef *buf, unsigned size)), 

#ifdef ASMV 

void match_init OF ((void)); /* asm code initialization */ 
ulnt longest_match OF ( (def late_state »s, IPos cur_match)); 

#else 

local ulnt longestjmatch 0F( (def late_state »s, IPos cur__match ) ) ; 
#endif 



#ifdef DEBUG 

local void check_raatch 0F( (def late_state *s, IPos start, IPos match, 

int length)); 

#endif 



/* asaanaaasaQasDeaiiQODaosnngianaBBOiinBcisaaBBsasaaseaBaooassaaaeooDosoanosDnaaQ 

* Local data 



#define NIL 0 

/* Tail of hash chains •/ 

l&fndef TOO„FAR 

define TOO.FAR 4096 
gfendif 

5^* Matches of length 3 are discarded if their distance exceeds TOOJFAR »/ 
Refine MINJ100KAHEAD (MAXJ4ATCH+MIN_MATCH+1) 

if* Minimum amount of lookahead, except at the end of the input file. 
See def late. c for comments about the MIN_MATCH+1. 

Q 

s /« Values for max_lazy_match, good_match and max_chain_length, depending on 
f= * the desired pack level (0..9), The values given below have been tuned to 

exclude worst case performance for pathological files. Better values may be 
*J* found for specific files. 

i^ypedef struct config_s { 

ush good_length; /* reduce lazy search above this match length »/ 
C3 ush max_lazy; /* do not perform lazy search above this match length */ 
jp ush nice_length; /* quit search above this match length */ 

ush max_chain; 

compress_func func; 
} config; 

local const config conf iguration„table [ 10] = { 



/* 






good 


lazy 


nice 


chain */ 


/» 


0 


*/ 


{0. 


0, 


0, 


0, def late_stored}, /* store only */ 


/* 


1 


*/ 


{4, 


4, 


8, 


4, def late_fast}, /* maximum speed, no lazy matches 


/* 


2 


*/ 


{4. 


5, 


16, 


8, def late_fast}, 


/* 


3 


»/ 


{4, 


6, 


32, 


32, deflate_fast}. 


/* 


4 


»/ 


{4, 


4, 


16, 


16, def late__slow}, /* lazy matches »/ 


/* 


5 


»/ 


{8. 


16, 


32, 


32, deflate_slow}. 


/* 


6 


»/ 


{8, 


16, 


128, 


128, def late_slow}. 


/* 


7 


*/ 


{8, 


32, 


128, 


256, deflate.slow}. 


/* 


8 


*/ 


{32, 


128, 


258, 


1024, deflate_slow}. 


/* 


9 


*/ 


{32, 


258, 


258, 


4096, def late_slow}}; /« maximum compression */ 



/• Note: the deflate () code requires max_lazy >» MIN_MATCH and max„chain >«* 4 

* For def late_fast () (levels <■ 3) good is ignored and lazy has a different 

* meaning. 
»/ 



#define EQUAL 0 

/» result of raemcmp for equal strings »/ 
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struct stat ic_t ree.de sc_s {int THBnmy; }; /* for buggy compilers */ 

/* eaaiioanBnQBiienosaaaDaiianenQnnaBOBDaQtieoDneaaesoanonDBCBenosoDomaaoeiDosoaal 

» Update a hash value with the given input byte 

* IN assertion: all calls to to UPDATE.HASH are made with consecutive 

* input characters, so that a running hash key can be computed from the 

* previous key instead of complete recalculation each time. 
«/ 

#define UPDATE_HASH(s,h,c) (h » ( ( (h) <<s->hash_shif t) * (c)) & s->hash_mask) 



/* BDsasaanaaoaaBOOBectgioaosoaiBttaDnaaaDDniioaaBnanBaaBsaBBnBaDiBBadBDaaDPBDBBnsBa 

* Insert string str in the dictionary and set match. head to the previous head 

* of the hash chain (the most recent string with same hash key) . Return 

* the previous length of the hash chain. 

* If this file is compiled with -DFASTEST, the compression level is forced 

* to 1, and no hash chains are maintained. 

* IN assertion: all calls to to INSERTJ3TRING are made with consecutive 

* input characters and the first MINJ4ATCH bytes of str are valid 

* (except for the last MIN_MATCH-1 bytes of the input file). 
»/ 

#ifdef FASTEST 

#define INSERT.STRING ( s , str, matchjiead) \ 

(UPDATE.HASH ( s , s->ins_h, s->window[ (str) + (MINJteTCH- 1 ) ] ) , \ 

match_head * s->head [s->ins_h] , \ 
s->head[s->ins_h] » (Pos)(str)) 
#else 

Refine INSERT.STRING (s , str, matchjaead) \ 

^ (UPDATE_HASH(s, s->ins_h, s->window[ (str) + (MISMATCH- 1 )]) , \ 
^3 s->prev[ (str) & s->w_mask] - matchjiead » s->head [s->insja ] , \ 
Ifi s->head[s->ins_h] = (Pos)(str)) 
#endif 

'iygj* SBDBSsaosseaeaeisat:»seeo»saenBoaoRaBanansBaBaBsttnBBsisBcaEB8BCBaaBBBB3isenaaBD 

|u* Initialize the hash table (avoiding 64K overflow for 16 bit systems), 
prevf] will be initialized on the fly. 

Cilefine CLEAR.HASH(s) \ 

g s->head[s->hash_size-l] - NIL; \ 

?t zmemzero ( (Bytef *)s->head, (unsigned) (s->hash_size-l)*sizeof (*s->head) ) ; 

*>J» * 

f,4fnt ZEXPORT def latelnit_(strm, level, version, stream.size) 

tji z.streamp strm; 

*Z level; 

■EcJ const char "version; 

£3 int stream.size; 

"{ 

return def latelnit2_(strm, level, Z.DEFLATED, MAX.WBITS, DEF J4EMJLEVEL , 

Z_DEFAULT_STRATEGY, version, stream_size) ; 
/* To do: ignore strm->next_in if we use it as window */ 



int ZEXPORT def latelnit2„(strm, level, method, windowBits, memLevel, strategy, 
version, stream.size) 
z_streamp strm; 
int level; 
int method; 
i nt wi ndowB its; 
int memLevel; 
int strategy; 
const char "version; 
int stream. size; 

{ 

def late.state *s; 
int noheader ■ 0; 

static const char* my_version - ZLIB.VERSION; 
ushf "overlay; 

/* We overlay pending_buf and d.buf +l_buf . This works since the average 
• output size for (length, distance) codes is <= 24 bits. 
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if (version " Z_NULL || versionfO] 1= my_version [0] || 

stream_size !» sizeof (z„st ream) ) { 
return ZJ/ERSIONJERROR; 
} 

if (strm « ZJNULL) return Z_STREAM_ERROR ; 

strm->msg = Z.JJULL; 

if (strm->zalloc « ZJNULL) { 

strm->zalloc - zcalloc; 

strm->opaque « (voidpf)O; 

} 

if (strm->zfree « Z.JJULL) strm->zfree = zcfree; 

if (level Z_DEFAULT_COMPRESSIOW) level « 6; 
#ifdef FASTEST 

level - 1; 
#endif 



if (windowBits < 0) { /* undocumented feature: suppress zlib header •/ 
noheader - 1; 
windowBits - -windowBits; 

} 

if (memLevel < 1 || memLevel > MAX_MEM_L EVE L || method ! ° Z_DEFLATED || 
windowBits < 8 | | windowBits > 15 || level < 0 | | level > 9 | | 

strategy < 0 | | strategy > Z_HUF FMAKLONL Y ) { 
return Z_STREAM_ERROR; 

n > 

*!: s - (def late_state «) ZALLOC(strm, 1, sizeof (def late_state) ) ; 

%J if (s »- ZJJULL) return ZJMEM_ERROR; 

[fl strm->state « (struct internal_state FAR *)s; 

?ji s->strm - strm; 

W s->noheader ■ noheader; 
[J s->w_bits - windowBits; 
tj s->w_size - 1 << s->w_bits; 
s->w_mask ■ s->w„size - 1; 

C3 

= s->hash_bits - memLevel + 7; 

lj s->hash_size » 1 << s->hash_bits; 

l*[ s->hash_mask ■ s->hash_size - 1; 

s->hash_shift - ( (s->hash_bits+MINJ4ATCH-l) /MISMATCH) ; 

£ . : 

U s->window = (Bytef «) ZALL0C(strm, s->w_size„ 2*sizeof (Byte) ) ; 
*c s->prev - (Posf ») ZALLOC(strm, s->w_size„ sizeof (Pos) ) ; 
M s->head - (Posf ») ZALL0C(strm, s->hash„size„ sizeof (Pos) ) ; 

C3 

s->lit_bufsize • 1 << (memLevel + 6); /« 16K elements by default «/ 

overlay - (ushf *) ZALLOC (straw s->lit_bufsize, sizeof (ush)+2) ; 
s->pending_buf - (uchf *) overlay; 

s->pending_buf_size - (ulg)s->lit_bufsize » (sizeof (ush)+2L) ; 

if (s->window — ZJ3ULL || s->prev Z_NULL | | s->head == ZJsTULL || 
s->pending_buf -» ZJtfULL) { 
strm->msg = (char*)ERR_MSQ(Z_MEM_ERROR) ; 
def lateEnd (strm) ; 
return Z_MEM_ERROR; 

} 

s->d_buf » overlay + s->lit__bufsize/sizeof (ush) ; 

s->l_buf ■ s->pending_buf + ( 1+sizeof (ush) )*s->lit_bufsize; 

s-> level « level; 
s->strategy » strategy; 
s->method - (Byte)method; 

return def lateReset (strm) ; 

} 

/* ■mDBDtiBaasaaitasaaoooBBaBiiSBaseeBsaaniaBDmitianaiaaaaaaBaDssnaBOaQDBaaaBtisniBtiB * / 

int ZEXPORT def lateSetDictionary (strm, dictionary, dictLength) 
z_streamp strm; 
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const Bytef "dictionary; 
ulnt dictLength; 

{ 

def late_state *s; 
ulnt length » dictLength; 
ulnt n; 

IPos hash_head * 0; 

if (strm Z_NULL || strm->state == Z_NULL || dictionary « ZJsJULL || 
strm->state->status !» INIT_STATE) return Z_STREAM_ERROR ; 

s « strm->state; 

strm->adler ** adler32(strm->adler, dictionary, dictLength); 

if (length < MISMATCH) return Z_0K; 

if (length > MAX_DIST(s)) { 

length - MAX.DIST(s); 
#ifndef US E_D I CT_HE AD 

dictionary += dictLength - length; /* use the tail of the dictionary •/ 
#endif 

} 

zmemcpy(s-> window, dictionary, length); 
s->strstart - length; 
s->block_start = (long) length; 

/• Insert all strings in the hash table (except for the last two bytes) . 

* s->lookahead stays null, so s->ins_h will be recomputed at the next 

• call of fill_window. 

a * y 

"z s->ins_h = s->window[0] ; 

^ UPDATE_HASH(s, s->ins_h, s->window[ 1] ) ; 

ffs for (n - 0; n <* length - MINJ4ATCH; n++) { 

ill INSERT_STRING(s, n, hash_head); 

y 

if (hash_head) hashjaead = 0; /« to make compiler happy «/ 
ly return ZJDK; 

aaoanseaarianaBoaBaoBaaaDBqBeottaaBaBeDdeseeBDtgssnBBaaeDmBaaBBssDaBoeiiiBianBn * / 

Bint ZEXPORT deflateReset (strm) 
l^. z__streamp strm; 

% 

^ def late_state *s; 

I* 

U if (strm — ■ Z„NULL || strm->state Z_NULL || 

U strm->zalloc Z_NULL || strm->zfree « ZJJULL) return Z_STREAM_ERROR ; 

C3 strm->total_in - strm->total_out « 0; 

strra->msg » ZJtfULL; /» use zfree if we ever allocate msg dynamically »/ 
strm->data„type ° ZJJNKNOWN; 

s » (def late_state *)strm->state; 
s->pending « 0; 

s->pending_out » s->pending„buf ; 

if (s->noheader < 0) { 

s->noheader - 0; ✓* was set to -1 by deflate(..., Z„FINISH); »/ 

} 

s->status «• s->noheader ? BUSY_STATE : INITJSTATE; 
strm->adler - 1; 
s->last_flush - ZJKL.FLUSH; 

_tr_init (s) ; 
lm_init (s) ; 

return ZJDK; 

> 

/* BBaanBBBaBaBesaaaaBaBBaaBBBeanoBSBaflBBBigBaaaaBBBaBBiBaBBaaooBBDDMBBBaBaaa * / 

int ZEXPORT def lateParams (strm, level, strategy) 
z_streamp strm; 
int level; 
int strategy; 
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{ 

def late_state *s; 
compress„func func; 
int err » ZJDR; 

if (strm « Z_NULL | | strm~> state « Z_NULL) return Z_STREAM_ERROR ; 
s - strm->state; 

if (level ZJDEFAULT_COMPRESSION) { 

level - 6; 

} 

if (level < 0 || level > 9 || strategy < 0 || strategy > Z_HUFFMAN_ONLY) { 

return Z_STREAM_ERROR; 

} 

func » conf iguration_table[s-> level] .func; 

if (func i* conf iguration_table[ level] .func && strm->total_in !» 0) { 

/* Flush the last buffer: */ 

err - def late (strm, Z_PARTIAL_FLUSH) ; 

} 

if (s->level 1= level) { 
s-> level = level; 

s->max_lazy_match » conf iguration„table [level ] .max_lazy; 
s->good.jnatch • conf iguration_t able [level ] ,good__length; 

s->nice_match « conf iguration_table [level ] ,nice_length; 

s->max_chain_length • conf iguration_table [level j .raax_chain; 
} 

s->strategy ■ strategy; 
return err; 

S 

|/fl* ogsBBaBDaBmnBaneanDSKaoBssnKneaosoBaDsdDQiiDaoeaeaaBecassiBttnBeaoDneBssansna 

pj Put a short in the pending buffer. The 16-bit value is put in MSB order, 
i IN assertion: the stream state is correct and there is enough room in 
^=3» pending_buf. 

-JLocal void putShortMSB (s„ b) 
f « def late_state *s; 
ulnt b; 

?3 put_byte(s, (Byte) (b >> 8)); 
n put_byte(s„ (Byte)(*> & Qxff)); 

,t 

z I I 

BBBBDtionBBnBBaeimonsBassBaaaBnaosiesBBBBaaattaBSBBaBBSfflBBSBBBaBBBcaciBsnonnno 

Flush as much pending output as possible. All deflate () output goes 
:!?« through this function so some applications may wish to modify it 
i3» to avoid allocating a large strm->next_out buffer and copying into it. 

• (See also read„buf()). 

*/ 

local void f lush_pending (strm) 
z_streamp strm; 

{ 

unsigned len ■ strm- > state-) pending; 

if (len > strm->avail_out) len = strm->avail_out; 
if (len — 0) return; 

zmemcpy(strm->next_out „ strm->state->pending_out, len) ; 

strm->next_out +» len; 

strm->state->pending_out +° len; 

strm->total_out +• len; 

strm->avail_out -= len; 

strm->state~>pending -« len; 

if (strm->state->pending « 0) { 

strm->state->pending_out « strra->state~>pending_buf ; 

} 

} 

/• oaDBettDBoaBnaaBsaaBBnaaaBDBDDDBBOSBiiaMVBBDBaoseaaacDDaBasaosnanBDoasBDaBB * / 

int ZEXPORT deflate (strm, flush) 
z_streamp strm; 
int flush; 
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F^r^Lh param for previous deflate ca 



int old_flush; /* value of ^Tush param for previous deflate call 
def late_state «s; 



if (strm ZJflULL || strra->state Z_NULL || 
flush > Z_FINISH | | flush < 0) { 
return Z_STREAM ERROR; 

} 

s = strm->state; 



if (strm~>next_out ZJsIULL | | 

(strm->next_in — Z_>JULL && strm->avail_in l« 0) || 
(s->status « FINISH__STATE && flush I - Z_FINISH) ) { 

ERR_REnURN(strm, Z_STREAM^ERROR ) ; 

} 

if (strm->avail_out 0) ERR_RETURN (strm, Z_BUF_ERR0R) ; 



s->strm - strm; /» just in case */ 
old_flush - s->last_flush; 
s->last_f lush « flush; 

/* Write the zlib header •/ 
if (s->status ~ INIT_STATE) { 



ulnt header - (Z_DEFLATED + ( (s->w_bits-8) <<4) ) << 8; 
ulnt level_flags - (s->level-l) >> 1; 

if (level_flags > 3) level_flags « 3; 
header | - (level_flags << 6); 
if (s->strstart !- 0) header [« PRESETJ)ICT; 
header + » 31 - (header % 31); 



s->status - BUSY_STATE ; 
putShortMSB(s, header); 



/* Save the adler32 of the preset dictionary: «/ 
if (s->strstart !« 0) { 

putShortMSB(s, (ulnt) (strm->adler >> 16)); 

putShortMSB(s, (ulnt) (strm~>adler & Oxffff)); 

} 

strra->adler ° 1L; 
} 



/• Flush as much pending output as possible */ 
if (s->pending !» 0) { 

f lush_pending(strm) ; 

if (strm->avail_out 00 0) { 

/« Since avail_out is 0, deflate will be called again with 

* more output space, but possibly with both pending and 

* avail_in equal to zero. There won't be anything to do, 

* but this is not an error situation so make sure we 

« return OK instead of BUF_ERR0R at next call of deflate: 
»/ 

s->last_f lush « -1; 
return Z_0K; 

} 



/» Make sure there is something to do and avoid duplicate consecutive 
» flushes. For repeated and useless calls with Z_FINISH, we keep 
* returning Z_STREAM_END instead of Z_BUFF_ERR0R . 
»/ 

} else if (strm->avail_in — 0 && flush <= old_flush && 
flush I- Z_FIKISH) { 
ERRJ*ETURN(strm, Z_BUF_ERR0R) ; 

} 

/« User must not provide more input after the first FINISH: »/ 
if (s->status °« FINISH_STATE && strm->avail_in !« 0) { 
ERR JtfTURN (strm, Z BUF_ERR0R); 

} 

/» Start a new block or continue the current one. 
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if (strm->avail_in I » 0 | | ^^BLookahead !« 0 || 

(flush ZJSO_FLUSH &S^P>status !» FINISH_STATE) ) { 
block_state bstate; 

bstate «= (*(configuration_table[s-> level] .func)) (s, flush); 

if (bstate « f inish_started | | bstate finish_done) { 
s->status » FINISH_STATE; 

} 

if (bstate « need_more | | bstate »- f inish_started) { 
if (strm->avail_out 0) { 

s->last_flush - -1; /» avoid BUF_ERR0R next call, see above »/ 

} 

return Z_0K; 

If flush != Z_N0_FLUSH && avail.out == 0, the next call 

* of deflate should use the same flush parameter to make sure 

* that the flush is complete. So we don't have to output an 

* empty block here, this will be done at next call- This also 

* ensures that for a very small output buffer, we emit at most 

* one empty block. 
«/ 

} 

if (bstate « block_done) { 

if (flush « Z_PARTI AL_F LUSH ) { 

_tr_align(s) ; 
} else { /* FULL_FLUSH or SYNC_FLUSH •/ 
_tr_stored_block(s, (char*)0, 0L, 0); 

/* For a full flush, this empty block will be recognized 
i» * as a special marker by inf late_sync() . 

U «/ 

\1 if (flush Z_FULL_FLUSH) { 

£f| CLEAR_HASH ( s ) ; ✓* forget history */ 

} 

} 

hJ f lush_pending(strm) ; 

[J if (strm~>avail_out == 0) { 

s->last_flush = -1; /« avoid BUF_ERR0R at next call, see above */ 
2 return Z_0K; 

C3 } 
} 

n > 

;~. Assert (strm->avail„out > 0, "bug2"); 

Id if (flush !- Z_FINISH) return Z_0K; 

3.7 if (s->noheader) return Z„STREAM„END ; 

r 

C3 /* Write the zlib trailer (adler32) «/ 

p putShortMSB(s, (ulnt ) (strm->adler >> 16)); 

putShortMSB(s, (ulnt ) (strm->adler & Oxffff)); 

f lush_pending (strm) ; 

/* If avail_out is zero, the application will call deflate again 
* to flush the rest. 
«/ 

s->noheader * -1; /* write the trailer only once! */ 
return s->pending !~ 0 ? Z_0K : Z_STREAM_END ; 

} 

int ZEXPORT deflateEnd (strm) 
z_streamp strm; 

{ 

int status; 

if (strm — ZJsTULL || strm- > state «« Z_NULL) return Z_STREAMJERROR; 
status « strm->state->status; 

if (status ! - INIT.STATE status I = BUSY_STATE 
status !- FINISH_STATE) { 
return Z_STREAM_ERR0R ; 

> 



ry 



/» Deallocate in reverse order of allocations: »/ 
TRY_FREE (strm, strm->state->pendzng„buf ) ; 
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TRY_FREE(strm, strm->state^^id) ; 

TRY_FREE(strm, strm- > state ^^rav ) ; 
TRY_FREE (strm, strm- > state - >wi ndow) ; 



ZFREE(strm, strm->state) ; 
strra->state » Z_NULL; 



return status BUSY_STATE ? Z_DATA_ERROR : Z_OK; 

} 

/* BnDSDBDBaaaaaDoaocismteaDODiinaDoaoaanoaoooeooaesttedaeBQBSBcaonaaeasrBBaoB^ 

* Copy the source state to the destination state. 

» To simplify the source, this is not supported for 16-bit MSDOS (which 

* doesn't have enough memory anyway to duplicate compression states). 
•/ 

int ZEXPORT deflateCopy (dest, source) 
z_streamp dest; 
z_streamp source; 

{ 

#ifdef MAXSEG„64K 

return Z_STREAM_ERROR ; 
#else 

def late_state *ds; 

def late_state *ss; 

ushf "overlay; 



if (source « ZJsfULL | | dest « Z _NULL | | source->state « Z_NULL) { 
?sa return Z_STREAM_ERROR ; 

^ } 



ff% ss » source->state; 

' !: *dest a "source ; 

U 

KJ ds = (deflate_state *) ZALLOC (dest , 1, sizeof (def late_state) ) ; 

if (ds ZJSULL) return Z_MEM_ERROR; 

a 2 m dest->state - (struct internal_state FAR «) ds; 

U *ds - *ss; 

5 ds->strm - dest; 



^ ds->window - (Bytef *) ZALLOC(dest, ds->w_size, 2*sizeof (Byte) ) ; 
~-: ds->prev « (Posf ») ZALLOC(dest, ds->w_size, sizeof (Pos) ) ; 
ly ds->head = (Posf *) ZALLOC(dest, ds->hash_size, sizeof (Pos) ) ; 
l & overlay • (ushf «) ZALLOC(dest, ds->lit_bufsize, sizeof (ush)+2) ; 
Is ds->pending_buf - (uchf ») overlay; 

tj if (ds->window — Z_NULL || ds->prev ZJNULL || ds->head -« Z_NULL || 
ds->pending_buf -» Z_NULL) { 
deflateEnd (dest); 
return Z_MEM_ERROR; 

} 

/« following zmemcpy do not work for 16 -bit MSDOS */ 

zmemcpy(ds-> window, ss->window, ds->w_size • 2 * sizeof (Byte) ) ; 

zmemcpy (ds->prev, ss->prev, ds->w_size * sizeof (Pos) ) ; 

zmemcpy (ds-> head, ss->head, ds->hash_size * sizeof (Pos) ) ; 

zmemcpy (ds~>pending_buf , ss->pending_buf , (ulnt)ds->pending_buf_size) ; 

ds->pending_out * ds->pending_buf + (ss->pending_out - ss->pending„buf ) 

ds->d_buf = overlay + ds->lit_bufsize/sizeof (ush) ; 

ds->l_buf « ds->pending_ buf + (1+sizeof (ush) )»ds->lit_bufsize; 



ds->l_desc .dyn_tree - ds->dyn_ltree; 
ds->d_desc.dyn_tree - ds->dyn_dtree; 
ds->bl_desc .dyn_tree - ds->bl_tree; 



return Z_OK; 
#endif 
} 



/* QBBBaoBaBaacmanaoBOBaaDoanBesooonsoaBnaasosBDaSBBaaaaaenaDaaaaaoBiisaattoe 

* Read a new buffer from the current input stream, update the adler32 

* and total number of bytes read. All deflate () input goes through 



File: Work\CrtPrt\zcomp\def late .c 



* this function so some appli^^Hms may wish to modify it to avoi 

* allocating a large strm->nex^?n buffer and copying from it. 

* (See also f lush_pending ( ) ) . 
«/ 

local int read_buf (strm, buf, size) 
z_streamp strm; 
Bytef *buf; 
unsigned size; 

{ 

unsigned len « strm->avail„in; 

if (len > size) len - size; 
if (len 0) return 0; 

strm->avail_in -» len; 

if ( !strm->state->noheader) { 

strm->adler « adler32(strm->adler, strm->next_in, len); 

} 

zmemcpy(buf, strra->next_in„ len); 
strm->next_in +» len; 
strm->total_in +» len; 

return (int)len; 

} 

/* asaOBssDDaoooBfflDOBasnaoaoESsaaaioaaeaBeiDaaaeaceanntioanatiaennsoBRaaeQaatiatje 

* Initialize the "longest match" routines for a new zlib stream 

f af / 

*Ipcal void lm_init (s) 
SJ def 2ate_state *s; 

m 

fy s->window_size « (ulg) 2L*s->w_size; 
^3 CLEAR_HASH ( s ) ; 

u 

%.i /» Set the default configuration parameters: 

s->max_lazy_jnatch « conf iguration_table [s-> level ] .max_lazy; 
3 s->good_match ■ conf iguration_table [s-> level ] .good_length; 

p s->nice_match » conf iguration_table [s->level j .nice_length; 

s->max_chain_length - conf iguration_table[s-> level ] .max_chain; 

*vl 

ly s->strstart » 0; 

s->block_start » 0L; 
s->lookahead « 0; 

s->match_length - s->prev_length - MIN_MATCH- 1 ; 
13 s->match_available =0; 

s->ins_h - 0; 
#ifdef ASMV 

match_init ( ) ; /» initialize the asm code */ 
#endif 
} 

/♦ BBOBsassBBSBa&BaaaBBSsessoaaBeaaaBBaBBeaBssmBSSBDaBCBBaBBaaBBBBaaBisBasBsa 

» Set match_start to the longest match starting at the given string and 

* return its length. Matches shorter or equal to prev_length are discarded, 

* in which case the result is equal to prev_length and match_start is 
» garbage. 

« IN assertions: curj&atch is the head of the hash chain for the current 
» string (strstart) and its distance is <» MAX_DIST, and prev_length >» 1 

* OUT assertion: the match length is not greater than s->lookahead. 
*/ 

#ifndef ASMV 

/* For 80x86 and 680x0, an optimized version will be provided in match. asm o 
» match. S. The code will be functionally equivalent. 
»/ 

tfifndef FASTEST 

local ulnt longest_raatch (s, cur_match) 
def late_state *s; 

IPos cur_match; /* current match */ 

{ 

unsigned chain_length » s->max__chain_length ;/* max hash chain length */ 
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register Bytef "scan - s->^^Hbw + s->strstart; /* current stri 
register Bytef *match; /* matched string 

register int len; /* length of current match */ 

int best_len • s->prev_length; /* best match length so far */ 

int nice_match * s->nice_match; /* stop if match long enough */ 

IPos limit - s->strstart > (IPos)MAXJ)IST(s) ? 

s->strstart - (IPos)MAX_DIST(s) : NIL; 
/« Stop when cur_match becomes <- limit. To simplify the code, 

* we prevent matches with the string of window index 0. 
»/ 

Posf *prev - s->prev; 
ulnt wmask - s->w.jnask; 

#ifdef UNALIGNED_0K 

/* Compare two bytes at a time. Note: this is not always beneficial. 

* Try with and without -DUNAL I GNED_0K to check. 
»/ 

register Bytef *strend - s->window + s->strstart + MAX_MATCH - 1; 
register ush scan_start - * (ushf*)scan; 
register ush scan_end » * (ushf*) (scan+best_len-l) ; 
#else 

register Bytef *strend » s-> window + s->strstart + MAX_MATCH; 
register Byte scan_endl » scan [best_len-l] ; 
register Byte scan_end - scan [bestJLen] ; 
#endif 




/* The code is optimized for HASHJ3ITS >° 8 and MAX J4ATCH-2 multiple of 16. 
* It is easy to get rid 'of this optimization if necessary. 

f 

Assert (s->hash_b its >» 8 && MAX_MATCH 258, "Code too clever"); 

Cfl /* Do not waste too much time if we already have a good match: */ 

fij if (s->prev_ length >- s->good_match) { 

"'Z. chain_length >>= 2; 

M } 

Ly /* Do not look for matches beyond the end of the input. This is necessary 

* ; * to make deflate deterministic. 

if ( (ulnt)nice_match > s->lookahead) nice_match « s~>lookahead; 

s 

Assert ( (ulg)s-> st rs tart s->window_size-MINJLOOKAHEAD, "need lookahead' 1 ); 

y d ° i 

|y Assert (cur^match < s->strstart, "no future"); 

[,.§. match « s->window + cur_match; 

*f /* Skip to nent match if the match length cannot increase 

£3 * or if the match length is less than 2: 

*/ 

#if (defined (UNALIGNED.OK) && MAX_MATCH 258) 

/* This code assumes sizeof (unsigned short) == 2. Do not use 

* UNALIGNED__OK if your compiler uses a different size. 
*/ 

if (*(ushf») (match+best_len~l) I • scan_end || 
*(ushf*)match !« scan_start) continue; 

/* It is not necessary to compare scan [2] and match [2] since they are 

* always equal when the other bytes match, given that the hash keys 

* are equal and that HASHJBITS >= 8. Compare 2 bytes at a time at 

* strstart+3, +5, ... up to strstart+257. We check for insufficient 

* lookahead only every 4th comparison; the 128th check will be made 

* at strstart+257. If MAX_MATCH-2 is not a multiple of 8, it is 

* necessary to put more guard bytes at the end of the window, or 

* to check more often for insufficient lookahead. 
•/ 

Assert (scan [2] match [2], "scan [2]?"); 
scan++, match++; 
do { 

} while (*(ushf») (scan+»2) -» *(ushf*) (match+»2) && 
*(ushf») (scan+-2) « * (ushf*) (match+*2) && 
*(ushf*) (scan+=2) — * (ushf*) (match+<*2) && 
*(ushf») (scan+»2) — * (ushf*) (match+*2) && 
scan < strend); 
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^^^tes better code on most compiler^^^ 



/* The funny "do {}" g 
/* Here, scan <» window+strstart+257 */ 

Assert(scan <» s->window+ (unsigned) (s->window_size-l) „ "wild scan"); 
if («scan *match) scan++; 

len - (MAXJ4ATCH - 1) - (int ) (strend-scan) ; 
scan = strend - (MAXJ4ATCH-1) ; 

#else /» UNALIGNED_OR «/ 

if (match [best_len] ! » scan_end || 

match [best_len-l] !- scan_endl || 

•match ! * *scan j | 

*++match ! « scan[l]) continue; 

/* The check at best.len-1 can be removed because it will be made 

* again later. (This heuristic is not always a win.) 

* It is not necessary to compare scan [2] and match [2] since they 

* are always equal when the other bytes match, given that 
« the hash keys are equal and that HASH.BITS >« 8. 

»/ 

scan +« 2, match++; 

Assert («scan « «match, "match [2] ?" ) ; 

/* We check for insufficient lookahead only every 8th comparison; 

* the 256th check will be made at strstart+258. 
*/ 

n do { 

*^ } while («++scan — *++match && *++scan =»» *++match && 

Q *++scan « »++match && »++scan « *++match && 

fn *++scan « »++match && «++scan « *++match && 

11] *++scan ■« *++match && *++scan *++match && 

— scan < strend); 

[J Assert (scan <» s->window+ (unsigned) (s->window_size-l) , "wild scan"); 

~ len - MAX — MATCH - (int) (strend - scan); 

U scan ° strend - MAXJ4ATCH; 

Intend if /* UNALIGNED_OK «/ 

M 

"J if (len > best_len) { 

s->match„start ■ cur_match; 
£7 best_len - len; 

e ~ if (len >« nice_match) break; 

Clifdef UNALIGNED_OK 

fj scan_end « * (ushf*) (scan+best_len-l) ; 

ffelse 

scan_endl * scan [best_len-l] ; 
scan_end » scanfbest len]; 

#endif 

} 

} while ((curjtiatch = prev[cur_match & wmask]) > limit 
Sc& — chain_length ! = 0); 

if ( (ulnt)best_len s->lookahead) return (ulnt )best_len; 
return s-> lookahead; 

} 

#else /« FASTEST */ 

/* 

» Optimized version for level «» 1 only 
«/ 

local ulnt longest_match(s, cur_match) 
def late_state *s; 

IPos curjnatch; /« current match »/ 

{ 

register Bytef *scan ■ s->window + s->strstart; /* current string »/ 
register Bytef *match; /• matched string */ 

register int len; /* length of current match */ 

register Bytef »strend = s->window + s->strstart + MAX_MATCH; 
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/* The code is optimized f^j^^SH.BITS >= 8 and MAX_MATCH-2 mul^^fe of 16 

* It is easy to get rid o^^nis optimization if necessary. 
»/ 

Assert (s->hash_bits >« 8 && MAXJ4ATCH 258, "Code too clever"); 
Assert ( (ulg)s->strstart <= s->window_size-MIN_LOOKAHEAD, "need lookahead") 
Assert (cur_ma ten < s->strstart, "no future"); 
match * s->window + cur_match; 

/• Return failure if the match length is less than 2: 

if (match[0] 1= scan[0] || matchfl] !» scan[l]) return MIN_MATCH-1; 

/* The check at best_len-l can be removed because it will be made 

* again later. (This heuristic is not always a win.) 

* It is not necessary to compare scan [2] and match [2] since they 

* are always equal when the other bytes match, given that 

* the hash keys are equal and that HASH_BITS >» 8. 
*/ 

scan +» 2, match +« 2; 

Assert («scan »» *match, "match [2]?" ) ; 

/* We check for insufficient lookahead only every 8th comparison; 

* the 256th check will be made at strstart+258 . 
*/ 

do { 

s ^ } while (*++scan « *++match && »++scan « *++match && 
4=J »++scan „ *++match && *++scan « »++match && 

\J *++scan « *++match && *++scan « *++match && 

tf\ »++scan « «++match && *++scan »« *++match && 

o; : scan < strend); 



Assert (scan <■» s->window+ (unsigned) (s->window_size-l) , "wild scan"); 
len - MAX_MATCH - (int) (strend - scan); 
if (len < MISMATCH) return MINJ4ATCH - 1; 



s->match__start » cur_match; 
I* return len <« s->lookahead ? len : s->lookahead; 

'i 

fjendif /* FASTEST •/ 

{#endif /* ASMV */ 

r~ 

Clifdef DEBUG 

m — 

» Check that the match at matches tart is indeed a match. 
»/ 

local void check„match (s, start, match, length) 
def late„state *s; 
IPos start, match; 
int length; 

{ 

/» check that the match is indeed a match */ 
if (zmemcmp(s-> window + match, 

s->window + start, length) l« EQUAL) { 

fprintf (stderr, " start /£u, match 5£u, length 5£d\n", 

start, match, length); 

do { 

fprintf (stderr, "%c%c" , s->window[match++] , s->window[start++] ) ; 
} while (--length !- 0); 

z_error(" invalid match"); 

} 

if (z_verbose > 1) { 

fprintf (stderr, "w[£d,2d]", start -match, length); 

do { putc(s->window[start++] , stderr); } while ( — length !» 0); 

} 

} 

#else 

# define check_match (s, start, match, length) 
tfendif 
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/# BBaQoansnaBnooBaDocaeBaaoae o^Fi^fe DcaDasmeaasoeBaoacsaonaas 

* Fill the window when the lookahead becomes insufficient. 

* Updates strstart and lookahead. 
• 

* IN assertion: lookahead < MIN_LOOKAHEAD 

* OUT assertions: strstart <» window_size-MIN_LOOKAHEAD 

* At least one byte has been read, or avail_in « 0; reads are 

* performed for at least two bytes (required for the zip translate_eol 

* option — not supported here). 
*/ 

local void f ill_window(s) 
def late_state «s; 

{ 

register unsigned n, m; 
register Posf «p; 

unsigned more; /* Amount of free space at the end of the window. */ 
ulnt wsize - s->w_size; 

do { 

more « (unsigned ) (s->window_size -(ulg)s->lookahead - (ulg)s->strstart) ; 
/* Deal with !@#$5£ 64K limit: */ 

if (more « 0 && s->strstart »« 0 && s-> lookahead — 0) { 
more « wsize; 

} else if (more « (unsigned) (-1) ) { 

/» Very unlikely, but possible on 16 bit machine if strstart « 0 
?S t * and lookahead « 1 (input done one byte at time) 

iJ «/ 

%J more — ; 

P i | /* If the window is almost full and there is insufficient lookahead, 

>z * move the upper half to the lower one to make room in the upper half. 

{A } else if (s->strstart >= wsize+MAX„DIST(s) ) { 

m ^ zmemcpy(s-> window, s->window+wsize, (unsigned)wsize) ; 

[3 s->match_start -« wsize; 

s->strstart -» wsize; /» we now have strstart >« MAX-DIST »/ 
s->block_start — (long) wsize; 



a 

13 



~'4 /» Slide the hash table (could be avoided with 32 bit values 

[y at the expense of memory usage). We slide even when level 0 

l2 to keep the hash table consistent if we switch back to level > 0 

l„ later. (Using level 0 permanently is not an optimal usage of 

=3 zlib„ so we don't care about this pathological case.) 

□ */ 

n = s->hash_size; 

p - &s->head[n]; 

do { 

m => * — p; 

*p =* (Pos) (m >« wsize ? m-wsize : NIL); 
} while ( --n) ; 

n - wsize; 
#ifndef FASTEST 

p = &s->prev[n] ; 
do { 

m - «--p; 

*p - (Pos)(m >- wsize ? m-wsize : NIL); 

/« If n is not on any hash chain, prev[n] is garbage but 

* its value will never be used. 

«/ 

} while ( — n) ; 



#endif 



more +- wsize; 

} 

if (s->strm->avail_in »« 0) return; 

/» If there was no sliding: 
» strstart <- WSIZE+MAX_DIST-1 && lookahead <» MIN_L00KAHEAD - 1 && 
* more « window size - lookahead - strstart 
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(MIN„LOOKAHEAD- 1 + WSIZE + MAxJ^Bl 
si^r- 2«WSIZE + 2 



» »> more >= window_s^^- (MIN_L00KAHEAD-1 + WSIZE + MAXj^^l) 

* »> more >= window_s^^^ 

* In the BIG_MEM or MMAP case (not yet supported), 
» window_size « input_size + MINJ100KAHEAD && 

* strstart + s->lookahead <» input_size => more >= MIN_LOOKAHEAD . 

* Otherwise, window_size — 2*WSIZE so more >= 2. 

* If there was sliding, more >«* WSIZE. So in all cases, more >- 2. 
»/ 

Assert (more >- 2, "more < 2"); 

n - read_buf (s->strm, s->window + s->strstart + s->lookahead, more); 
s->lookahead +« n; 



/» Initialize the hash value now that we have some input: «/ 
if (s->lookahead >» MINJMATCH) { 

s->ins_h - s->window(s->strstart ] ; 

UPDATE_HASH(s, s->ins_h, s->window[s->strstart+l] ) ; 
#if MISMATCH ! » 3 

Call UPDATEJttSH() MISMATCH- 3 more times 

#endif 

} 

/•If the whole input has less than MIN_MATCH bytes, ins_h is garbage 
» but this is not important since only literal bytes will be emitted 
«/ 



} while (s->lookahead < MIKLLOOKAHEAD && s->strm->avail_in !» 0); 

} 

onanDeaesnansisoaaaBeastieBEisstieBasiiSBsaBEBcaaaDnsecnaiisasesaBseBasaasanaBeo 

Flush the current block, with given end-of-file flag, 
vl* IN assertion: strstart is set to the end of the current match, 
fff*/ 

^define FLUSH_BLOCK_0NLY(s, eof) { \ 

! jf _tr_flush_block(s, (s->block_start >« 0L ? \ 

%J (charf »)&s->window[ (unsigned)s->block„start ] : \ 

[J (charf »)Z_NULL), \ 

rj (ulg) ( ( long )s-> strstart - s->block_start) , \ 

^ (eof)); \ 

s->block_start - s->strstart; \ 
3 f lush_pending (s->strm) ; \ 

Tracev( (stderr , " [FLUSH] " ) ) ; \ 

1% 
"h 

I A* Same but force premature exit if necessary. */ 
Tldefine FLUSH_BL0CR(s, eof) { \ 
* FLUSH_BL0CK_0NLY(s, eof); \ 

C3 if (s->strm->avail_out ■ 0) return (eof) ? f inish_started : need_raore; \ 

a 

* Copy without compression as much as possible from the input stream, return 

* the current block state. 

* This function does not insert new strings in the dictionary since 

* uncompressible data is probably not useful. This function is used 
« only for the level»0 compression option. 

* NOTE: this function should be optimized to avoid extra copying from 

* window to pending_buf . 
*/ 

local block_state def late_stored (s, flush) 
def late_state *s; 
int flush; 

{ 

/» Stored blocks are limited to Oxffff bytes, pending_buf is limited 
* to pending„buf„size, and each stored block has a 5 byte header: 
«/ 

ulg max„block_size » Oxffff; 
ulg max^start; 

if (max_block_size > s->pending_buf_size - 5) { 
max_block_size » s->pending_buf_size - 5; 

} 



/» Copy as much as possible from input to output: •/ 
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iH^^as possible: 



for (;;) { 

/* Fill the window as rSKK as possible: «/ 
if (s->lookahead <= 1) { 

Assert (s->strstart <.,s->w_size+MAX_DIST(s) || 
s->block_start >» (long)s->w_size, "slide too late"); 

f ill_window(s) ; 

if (s->lookahead == 0 && flush Z_NO_FLUSH) return need_jtiore 

if (s->lookahead « 0) break; /* flush the current block */ 

} 

Assert (s->block_start >- QL, "block gone"); 



s->strstart +» s->lookahead; 
s->lookahead * 0; 



/* Emit a stored block if pending_buf will be full: •/ 
max_start = s->block_start + max_block_size; 

if (s->strstart »- 0 | | (ulg)s->strstart max_start) { 

/* strstart 0 is possible when wraparound on 16-bit machine */ 

s->lookahead « (ulnt) (s->strstart -max_start); 

s->strstart « (ulnt)max_start; 
FLUSH„BLOCK(s, 0); 

} 

/* Flush if we may have to slide,, otherwise block_start may become 

* negative and the data will be gone: 
»/ 

i*% if (s->strstart - (ulnt )s->block start >= MAXJ)IST(s) ) { 

*t FLUSH_BL0CK(s, 0); 

U } 

cn } 

f\l FLUSH_BLOCK(s, flush Z„FINISH) ; 
z. return flush Z_FINISH ? finish_done : block_done; 

t; ^# flUBOosasaeaDmcDassannsoBRBssBnaaaaaiieBmeaastaOBneeaaBeasnBanDDsssasiataeoa 

Compress as much as possible from the input stream, return the current 
*sf» block state. 

a * This function does not perform lazy evaluation of matches and inserts 
fg» new strings in the dictionary only for unmatched strings or for short 
matches. It is used only for the fast compression options. 

]'\*/ 

liocal block_state def late_fast (s, flush) 
i& def late_state *s; 
Isi int flush; 

li 

tj IPos hash_head » NIL; head of the hash chain */ 

int bflush; /* set if current block must be flushed */ 

for (;;) { 

/* Make sure that we always have enough lookahead, except 

* at the end of the input file. We need MAXJ4ATCH bytes 
» for the next match, plus MISMATCH bytes to insert the 

* string following the next match. 
*/ 

if (s->lookahead < MINJ100KAHEAD) { 
f ill_window(s) ; 

if (s->lookahead < MINJ.00KAHEAD && flush « Z_N0_FLUSH) { 
return need_more; 

} 

if (s->lookahead •« 0) break; /» flush the current block */ 

} 

/* Insert the string window [strstart strstart+2] in the 

* dictionary, and set hash_head to the head of the hash chain: 
»/ 

if (s->lookahead >» MINJMATCH) { 

INSERT_STRING(s, s->strstart, hash_head); 

} 

/* Find the longest match, discarding those <= prev_length. 

* At this point we have always match_length < MIN_MATCH 
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J^^strstart - hashjiead O MAXJDIST(^^^{ 



«/ 

if (hash__head != NIL &£^F>strstart - hashjiead <- MAXJDIST(s^ { 
/» To simplify the code, we prevent matches with the string 

* of window index 0 (in particular we have to avoid a match 

* of the string with itself at the start of the input file). 
»/ 

if (s->strategy !« Z_HUFFMAN_ONLY) { 

s->match_length « longest match (s, hash head); 

} 

/* longest_match ( ) sets match_start «/ 

} 

if (s->match_length MINJMATCH) { 

check_match (s, s->strstart, s->match_start, s->match__length) ; 

_tr_tally_dist (s, s->strstart - s->match_start , 

s->match_length - MINJ4ATCH, bflush); 

s->lookahead -« s->match_length; 

/* Insert new strings in the hash table only if the match length 

* is not too large. This saves time but degrades compression. 
*/ 

#ifndef FASTEST 

if (s->match_length <» s->max„insert_length && 
s->lookahead >« MINJ4ATCH) { 

s->match_length — ; /« string at strstart already in hash table »/ 
do { 

s->strstart++; 

jg INSERT_STRING(s, s->strstart, hash_head); 

z /* strstart never exceeds WSIZE-MAX_MATCH, so there are 

^ * always MINJ4ATCH bytes ahead. 

£n »/ 

I s LI } while ( — s->match_length != 0); 

. Z s->strstart++; 
%s * } else 

ksmdif 

s->strstart += s->match_length; 
ia5 s->match_length - 0; 

3 s->ins_h « s->window[s->strstart] ; 

[5 UPDATE JHASH ( s , s->ins_h, s->window[s->strstart+ 1] ) ; 

*if MIN_MATCH I- 3 

."1 Call UPDATE_HASH() MISMATCH -3 more times 

ijfendif 

/* If lookahead < MINJ4ATCH, ins_h is garbage, but it does not 
?^ * matter since it will be recomputed at next deflate call. 

} else { 

/* No match, output a literal byte */ 

Tracew ( (stderr , " , s->window [s->strstart J ) ) ; 

„tr_tally_lit (s, s- > window [s-> strstart ] , bflush); 

s->lookahead--; 

s->strstart++; 

} 

if (bflush) FLUSHJBLOCK(s, 0); 

} 

FLUSH_BLOCK(s, flush — Z„FINISH); 

return flush *>- Z_FINISH ? finish_done : block_done; 

} 

/• DBBBaODaaaaoBasadaestjnaeaaseiiaBesBaBBoaetoiiBosasaonsDtiesooneae&aeaaiaaottaonasa 

* Same as above, but achieves better compression. We use a lazy 

* evaluation for matches: a match is finally adopted only if there is 

* no better match at the next window position. 
»/ 

local block_state def late„slow(s, flush) 
def late — state *s; 
int flush; 

{ 

IPos hash_head ■ NIL; /* head of hash chain */ 

int bflush; /* set if current block must be flushed »/ 
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/» Process the input blockf 
for (;;) { 

/* Make sure that we always have enough lookahead, except 

* at the end of the input file. We need MAXJ4ATCH bytes 

* for the next match, plus MIN_MATCH bytes to insert the 

* string following the next match. 
»/ 

if (s->lookahead < MINJLOOKAHEAD ) { 
f ill_window(s) ; 

if (s-> lookahead < MINJLOOKAHEAD flush — Z JJOJFLUSH) { 
return need^more; 

} 

if (s->lookahead « 0) break; /* flush the current block «/ 

} 

/* Insert the string window [strstart . . strstart+2] in the 

* dictionary, and set hash_head to the head of the hash chain: 
*/ 

if (s->lookahead >« MINJ4ATCH) { 

INSERT_STRING(s, s->strstart, hashjiead); 

} 

/» Find the longest match, discarding those <«= prev_length. 
»/ 

s->prev_length « s->match_length, s->prev_match - s->match_start; 
s->match_length » MINJMATCH-1; 

if (hash_head !» NIL && s->prev_length < s->max_lazy_raatch && 
s->strstart - hash_head <■ MAXJ>ISTT(s) ) { 

/» To simplify the code, we prevent matches with the string 

* of window index 0 (in particular we have to avoid a match 
£fl * of the string with itself at the start of the input file). 

l 't if (s->strategy !» ZJiUFFMANjDNLY) { 

^ s->match_length - longest_raatch (s, hash_head); 

IJ } 

\.J /* longest_match ( ) sets match_start »/ 

t =5 

if (s->raatch_length <» 5 && (s->strategy Z_FILTERED | | 

s (s->match_length MISMATCH 

ij s->strstart - s->match_start > TOCLFAR))) { 

v i 

.~ /» If prevjnatch is also MIN_MATCH, match_start is garbage 

iy * but we will ignore the current match anyway. 

f8 * s->match_length = MIN_MATCH-1; 

} 

U } 

/* If there was a match at the previous step and the current 

* match is not better, output the previous match: 
«/ 

if (s->prev_length MIN_MATCH && s->match_length <- s->prev_ length) { 
ulnt max_insert - s->strstart + s-> lookahead - MIN_MATCH; 
/« Do not insert strings in hash table beyond this. */ 

check_match(s, s->strstart-l, s->prev_jnatch, s->prev_length) ; 

__tr_tally_dist (s, s->strstart -1 - s->prev_jnatch, 
s->prey_length - MIN_MATCH, bflush); 

/* Insert in hash table all strings up to the end of the match. 

* strstart-1 and strstart are already inserted. If there is not 

* enough lookahead, the last two strings are not inserted in 

* the hash table. 
«/ 

s-> lookahead s->prev_length-l; 
s->prev_length -» 2; 
do { 

if (++s->strstart <» raax_insert) { 

INSERT_STRING(s„ s->strstart, hash_head); 

} 

} while ( — s->prev_length 1= 0); 
s->match_available « 0; 
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s->match_length 
s->strstart++; 



if (bflush) FLUSH_BLOCK(s, 0); 

} else if (s->match_available) { 

/• If there was no match at the previous position , output a 

* single literal. If there was a match but the current match 

* is longer, truncate the previous match to a single literal. 
«/ 

Tracew( (stderr,"%c" , s->window[s->strstart-l] ) ) ; 
_tr„tally_lit (s, s->window[s->strstart-l] , bflush); 
if (bflush) { 

FLUSH_BLOCR_ONLY(s, 0); 

} 

s->strstart++; 
s->lookahead — ; 

if (s->strm->avail_out »«=» 0) return need_more; 
} else { 

/» There is no previous match to compare with, wait for 

* the next step to decide. 
*/ 

s->match_available ■ 1; 

s->strstart++; 

s->lookahead--; 

} 

} 

Assert (flush I- ZJIOJFLUSH, "no flush?"); 
if (s->match_available) { 

Tracew( (stderr„"%c" , s->window[s->strstart-l] ) ) ; 

_tr_tally_lit (s„ s->window[s->strstart-l] , bflush); 

s->match_available - 0; 

} 

FLUSH_BLOCK(s, flush Z_FINISH) ; 

return flush « Z FINISH ? finish_done : block done; 
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/* crc32.c — compute the CRC-^^» a data stream 

* Copyright (C) 1995-1998 MarkWier 
» For conditions of distribution and use, see copyright notice in zlib.h 
»/ 

/* @(#) $Id$ «/ 

#include "zlib.h" 

#define local static 

#ifdef DYNAMI C_CRC_TABLE 

local int crc_table_empty ■» 1; 

local uLongf crc_table[256] ; 

local void make_crc_table OF ((void)); 

/» 

Generate a table for a byte -wise 32-bit CRC calculation on the polynomial : 
x^32+x A 26+x^23+x^22+x^l6+x yv 12+x^ll+x^l0+x A 8+x ys 7+x A 5+x^4+x /N 2+x+l . 

Polynomials over GF(2) are represented in binary, one bit per coefficient, 
with the lowest powers in the most significant bit. Then adding polynomials 
is just exclusive-or, and multiplying a polynomial by x is a right shift by 
one. If we call the above polynomial p, and represent a byte as the 
polynomial q, also with the lowest power in the most significant bit (so the 
byte Oxbl is the polynomial x^7+x /v 3+x+l) , then the CRC is (q*x^32) mod p, 
where a mod b means the remainder after dividing a by b. 

This calculation is done using the shift-register method of multiplying and 
-,3 taking the remainder. The register is initialized to zero, and for each 
lf\ incoming bit, x^32 is added mod p to the register if the bit is a one (where 
e;; x^32 mod p is p+x A 32 - x' s 26+ . . . + 1) , and the register is multiplied mod p by 

x (which is shifting right by one and adding x^32 mod p if the bit shifted 
\J out is a one) . We start with the highest power (least significant bit) of 
[J q and repeat for all eight bits of q. 

^ The table is simply the CRC of all possible eight bit values. This is all 
C3 the information needed to generate CRC's on data a byte at a time for all 
s combinations of CRC register values and incoming bytes. 

f T 

"tocal void make_crc_table ( ) 

"4 

[y uLong c; 
12 int n, k; 

jl™ uLong poly; /* polynomial exclusive-or pattern */ 

I J /* terms of polynomial defining this crc (except x A 32) : */ 
□ static const Byte p[] = {0,1,2,4,5,7,8,10,11,12,16,22,23,26}; 

/* make exclusive-or pattern from polynomial (0xedb88320L) */ 
poly * OL; 

for (n « 0; n < sizeof (p)/sizeof (Byte) ; n++) 
poly |= 1L << (31 - p[n]); 

for (n « 0; n < 256; n++) 
{ 

c - (uLong)n; 

for (k •= 0; k < 8; k++) 

c = c & 1 ? poly A (c » 1) : c >> 1; 
crc_table[n] « c; 

} 

crc_table_empty = 0; 

} 

#else 

/» esaanB&oeBBeasaaoBQBiaBsiisBBBesssasaBaQaeaBBBEttdqoaoBoaDiiasetEaaiiiasiaaBiDans 

• Table of CRC- 32' s of all single -byte values (made by make_crc_table) 
*/ 

local const uLongf crc_table [256] - { 

OxOOOOOOOOL, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L, 

0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L, 

0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7ebl7cbdL, 0xe7b82d07L, 

0x90bfld91L, 0xldb71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL, 

0xladad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L, 0xl36c9856L, 




File: Work\CrtPrt\zcorap\crc32.c Pg: 2 



0x646ba8c0L, 0xfd62f97aL, 0x^^9ecL, 0xl4015c4fL, 0x63066cd9U 

0xfaQf3d63L, 0x8dQ80df5L, 0x3lP2Qc8L „ 0x4c691Q5eL, 0xd56041e4L, 

0xa2677172U 0x3c03e4dlU 0x4b04d447U 0xd20d85fdL, Qxa50ab56bU 

0x35b5a8faL, Ox42b2986cU 0xdbbbc9d6U Oxacbcf940U Qx32d86ce3L, 

0x45df5c75L, Oxdcd60dcfU 0xabdl3d59L, 0x26d930acL, 0x51de003aL, 

0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, Oxcfba9599L, 

0xb8bda50fL, 0x2802b89eL, 0x5f0588Q8L, 0xc60cd9b2U 0xbl0be924L, 

0x2f6f7c87U 0x58684cllL, 0xcl611dabL, 0xb6662d3dL, 0x76dc4190U 

0x01db7106L, 0x98d220bcL 0xefd5102aL, 0x71bl8589U 0x06b6b51fL, 

0x9fbfe4a5L, 0xe8b8d433U 0x7807c9a2L, 0x0f00f934U Qx96G9a88eL, 

0xel0e9818U 0x7f6a0dbbL, 0x086d3d2dL. 0x91646c97L. 0xe6635c01U 

0x6b6b51f4L, 0xlc6c6162U 0x856530d8L, 0xf262004eL, Qx6cQ695edU 

0xlb01a57bL, 0x8208f4clL, 0xf50fc457L, 0x65b0d9c6L, 0xl2b7e95QU 

0x8bbeb8eaL, 0xfcb9887cL, 0x62ddlddfU Oxl5da2d49L, 0x8cd37cf3L, 

0xfbd44c65U 0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L, 

0x4adfa541L, 0x3dd895d7L, 0xa4dlc46dL, 0xd3d6f4fbL, 0x4369e96aL, 

0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44Q42d73L, 0x33031de5U 

0xaaGa4c5fU Oxdd0d7cc9L, 0x5005713cL, 0x27Q241aaL, OxbeOblOlOU 

0xc90c2086L, 0xS768b525L, 0x206f85b3U 0xb966d409L, Qxce61e49fL, 

0x5edef90eU 0x29d9c998L, 0xbQd09822L, 0xc7d7a8b4L, 0x59b33dl7U 

0x2eb40d81L, Oxb7bd5c3bL, 0xc0ba6cadL, Qxedb88320L, 0x9abfb3b6L, 

0x03b6e20cL, 0x74bld29aU 0xead54739U Ox9dd277afL, 0x04db2615L, 

0x73dcl683L, 0xe3630bl2L, 0x94643b84L, Qx0d6d6a3eL, 0x7a6a5aa8U 

0xe4Gecf0bL, Ox9309ff9dU 0x0a00ae27L, 0x7d079eblL, 0xf00f9344U 

0x87Q8a3d2L, 0xle01f268U 0x6906c2feL, Gxf762575dL, 0x806567cbU 

0xl96c3671L, Ox6e6b06e7L, 0xfed41b76U 0x89d32be0U 0xl0da7a5aL, 

0x67dd4accU 0xf9b9df6fL, 0x8ebeeff9U 0xl7b7be43L 0x60b08ed5L, 

0xd6d6a3e8L, 0xaldl937eL, Qx38d8c2c4L, 0x4fdff252L, 0xdlbb67flL, 

f - 0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL, 0xd80d2bdaU 0xaf0alb4cU 

-? 0x36034af6L, 0x41047a60L r 0xdf60efc3U 0xa867df55L, 0x316e8eefL, 

*3 0x4669be79L, 0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L, 

Cn 0xcc0c7795U 0xbb0b4703L, Ox220216b9L, 0x5505262fL, 0xc5ba3bbeU 

fit 0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04U 0xc2d7ffa7L, 0xb5d0cf31U 

*r 0x2cd99e8bL, 0x5bdeaeldL, 0x9b64c2b0L, 0xec63£226U 0x756aa39cU 

*J 0x026d930aU Ox9c0906a9L, 0xeb0e363fL, 0x72076785U Ox05005713L, 

!J 0x95bf4a82L, 0xe2b87al4L, 0x7bbl2baeL, 0x0cb61b38U 0x92d28e9bL, 

\.\ 0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L, 0x86d3d2d4L, 0xfld4e242L, 

^ 0x68ddb3f8L, 0xlfda836eL, 0x81bel6cdL. 0xf6b9265bL, 0x6fb077elU 

0xl8b74777L, Ox88085ae6U 0xff0f6a70L, 0x66063bcaL, 0xll010b5cL, 

= 0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0xl66ccf45L, 0xa00ae278L, 

n 0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L, 

" 0x4969474dL, 0x3e6e77dbL, 0xaedl6a4aL, 0xd9d65adcL. 0x40df0b66L, 

"** 0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L, 

|y ; 0xbdbdf21cL, Oxcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L # 

U 0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L, 

U Ox5d681b02L, 0x2a6f2b94L, Oxb40bbe37L, 0xc30c8ealL, 0x5a05dflbL, 
^ 0x2d02ef8dL 

Q; 
#endif 



• This function can be used by asm versions of crc32() 
*/ 

const uLongf * ZEXPORT get_crc_table ( ) 
{ 

#ifdef DYNAM I C_CRC JTABLE 

if (crc_table_empty) make_crc„table ( ) ; 
#endif 

return (const uLongf «)crc„table; 

} 

/» dnBBDraBDnnaoononoooisasonnsBnossaaemtjnnitBanacnnBqoBOOBnBcsnscseooneeBacnidD »/ 

#define DOl(buf) crc » crc_table [ ( (int)crc ^ (»buf++)) & Oxff] A (crc >> 8); 
#define D02(buf) DOl(buf); DOl(buf); 
#define D04(buf) D02(buf); D02(buf); 
#define D08(buf) D04(buf); D04(buf); 



aao» »/ 
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if (buf ZJJULL) return 
#ifdef DYNAMIC J]RC_TABLE 
if (crc_table_empty) 
make_crc_table ( ) ; 

#endif 

crc « crc A OxffffffffL; 

while (len >=» 8) 

{ 

D08(buf ); 
len 8; 

} 

if (len) do { 

D01(buf ); 
} while ( — len); 
return crc " OxffffffffL; 



C3 

ru 

Is aJ 
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1^B2 checksum of a data stream 
rk^RTler 



/* adler32.c — compute the kd\ 
« Copyright (C) 1995-1998 Mark^ 
* For conditions of distribution and use, see copyright notice in zlib.h 
*/ 

/* @(#) $Id$ */ 
^include "zlib.h" 

#define BASE 6552 1L /« largest prime smaller than 65536 */ 
#define NMAX 5552 

/« NMAX is the largest n such that 255n(n+l)/2 + (n+1) (BASE-1) O 2^32-1 */ 

#define D01(buf,i) {si +• buf[i]; s2 +- si;} 
#define D02(buf,i) D01(buf,i); D01(buf ,i+l) ; 
#define D04(buf,i) D02(buf,i); D02 (buf , i+2) ; 
^define D06(buf,i) D04(buf,i); D04 (buf ,i+4) ; 
#define D016(buf) D08(buf,0); D08(buf,8); 

/* eaBeaaaeaaQaaaBanaBmsBaaaaoaisaiiasooaosoactBSBBasiisoaaaaciaoaiBBQaaQosanaanigo * / 

uLong ZEXPOFX adler32 (adler, buf, len) 
uLong adler; 
const Bytef »buf; 
ulnt len; 



{ 



£3 



unsigned long si » adler & Oxffff ; 

unsigned long s2 » (adler >> 16) & Oxffff; 
int k; 

if (buf Z_NULL) return 1L; 



CH while (len > 0) { 

fy k = len < NMAX ? len : NMAX; 

len k; 
^ while (k >- 16) { 

|y D016(buf); 

buf +« 16; 

f ~ k — 16; 

U } 

= if (k !« 0) do { 

p si += *buf++; 

l~i s2 += si; 

} while (— k); 
iU si ^ BASE; 

s2 *4° BASE; 

£3 } 

!f return (s2 << 16) | si; 
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a^^B buffer 

an^Bup Gailly. 



/• compress. c compress a mei| 

* Copyright (C) 1995-1998 Jean^Bup Gailly. 

* For conditions of distribution and use, see copyright notice in zlib.h 
»/ 



/* @(#) $Id$ */ 
^include "zlib.h" 



Compresses the source buffer into the destination buffer. The level 
parameter has the same meaning as in deflatelnit. sourceLen is the byte 
length of the source buffer. Upon entry, destLen is the total size of the 
destination buffer, which must be at least Q.1Z larger than sourceLen plus 
12 bytes. Upon exit, destLen is the actual size of the compressed buffer. 

compress 2 returns Z_OK if success, Z_MEH-ERROR if there was not enough 
memory, Z_BUF„ERROR if there was not enough room in the output buffer, 
ZJ3TREAH.ERR0R if the level parameter is invalid. 

•/ 

int ZEXPORT compress2 (dest, destLen, source, sourceLen, level) 
Bytef »dest; 
uLongf "destLen; 
const Bytef "source; 
uLong sourceLen; 
int level; 

{ 

z_stream stream; 
#tt int err; 

% J 

\1 stream. next_in » (Bytef*) source; 
ff% stream. avail_in » (u Int) sourceLen; 
h 0£d&£ MAXSEG_64K 

' /» Check for source > 64K on 16-bit machine: »/ 

*3 if ( (uLong) stream. avail_in !« sourceLen) return Z_BUF„ ERROR; 

fjendif 

stream.next_out * dest; 

streara.avail„out ■ (ulnt) "destLen; 
|3 if ( (uLong) stream. avail_out l« *destLen) return Z_BUF_ERROR; 

j»=^ stream. zalloc » (alloc_func)0; 
2~ s t ream. z free » (free_func)0; 
~"4 stream. opaque - (voidpf)O; 

«2 err * def latelnit (&stream, level); 
[Z if (err 1 = Z_OK) return err; 

kJ 

fi err =* def late (&stream, Z_FINISH); 
if (err 1 = Z_STREAM_END ) { 
def lateEnd (&stream) ; 

return err Z_OK ? Z_BUF__ERROR : err; 

} 

"destLen » stream. total_out; 



err « def lateEnd (&stream) ; 
return err; 

} 



/* ggnnDmsBaoBaaeaauaBSBBSDaBaonDeceaiaaesaDtiDaaitBBasBaaBeRaasBnoaisnoaseanoDsisee 
*/ 

int ZEXPORT compress (dest, destLen, source, sourceLen) 
Bytef «dest; 
uLongf "destLen; 
const Bytef "source; 
uLong sourceLen; 

{ 

return compress2(dest, destLen, source, sourceLen, Z_DEFAULT_COMPRESSION) ; 

} 
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/* gzio.c — 10 on .gz files 

* Copyright (C) 1995-1998 Jean-loup Gailly. 

* For conditions of distribution and use, see copyright notice in 
zlib. h 

* Compile this file with - DN0_D E FLAT E to avoid the compression co 
de. 

V 

/* @(#) $Id$ */ 
#include <stdio.h> 
#include "zutil.h" 

struct internal_state {int dummy;}; /* for buggy compilers */ 

#ifndef Z_BUFSIZE 

# ifdef MAXSEG_64K 

# define Z_BUFSIZE 4096 /* minimize memory usage for 16-bit DOS 
*/ 

m # else 

fy # define Z_BUFSIZE 16384 
■ % j # endif 
LlJ #endif 

^•4 #ifndef Z_PRINTF_BUFSIZE 

C3 # define Z_PRINTF_BUFSIZE 4096 

e #endif 

u 

% 4 #define ALLOC (size) malloc(size) 

U' #define TRYFREE(p) {if (p) free(p);} 

P static int gz_magic[2] = {Oxlf, 0x8b}; /* gzip magic header */ 
P 

/* gzip flag byte */ 

#define ASCII_FLAG 0x01 /* bit 0 set: file probably ascii text * 
/ 

#define HEAD_CRC 0x02 /* bit 1 set: header CRC present */ 
#define EXTRA_FIELD 0x04 /* bit 2 set: extra field present */ 
#define ORIG_NAME 0x08 /* bit 3 set: original file name present 
*/ 

#define COMMENT 0x10 /* bit 4 set: file comment present */ 

#define RESERVED OxEO /* bits 5.. 7: reserved */ 

typedef struct gz_stream { 
z stream stream; 
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int 


z_err; 


/* 


error code for last stream operation */ 


int 


z eof; 


/* 


set if end of input file */ 


FILE 


*file; 


/* 


.gz file */ 


Byte 


*inbuf ; 


/* 


input buffer */ 


Byte 


*outbuf ; 


/* 


output buffer */ 


uLong 


crc; 


/* 


crc32 of uncompressed data */ 


char 


*msg; 


/* 


error message */ 


char 


*path; 


/* 


path name for debugging only */ 


int 


transparent; 


/* 1 if input file is not a .gz file */ 


char 


mode ; 


/* 


•w' or f r' */ 


long 


startpos; 


/* 


start of compressed data in file (header 


skipped) */ 








} gz_stream; 









local gzFile gz_open 0F( (const char *path, const char *mode, 
int fd)); 

local int do_flush OF((gzFile file, int flush)); 

local int getjoyte 0F( (gz_stream *s) ) 
local void check__header OF ( (gz_stream *s)) 

local int destroy OF ( (gz_stream • *s) ) 

local void putLong OF((FILE *file, uLong x) ) ; 

local uLong getLong OF ( (gz_stream *s)); 

/* _„„„„„„„„„_„ M= „^ 

Opens a gzip (.gz) file for reading or writing. The mode para 

meter 

is as in fopen ("rb" or "wb") . The file is given either by file 
descriptor 

or path name (if fd == -1) . 

gz_open return NULL if the file could not be opened or if the 
re was 

insufficient memory to allocate the (de) compression state; errn 

o 

can be checked to distinguish the two cases (if errno is zero, 

the 

zlib error is Z_MEM_ERROR) . 

*/ 

local gzFile gz_open (path, mode, fd) 
const char *path; 
const char *mode; 
int fd; 

{ 

int err; 

int level = Z_DE FAULT COMPRESSION; /* compression level */ 



File: Work\CrtPrt\zlib\gzio. c ^ Pg: 3 



int strategy = Z_DEFAULT_STRATEGY; /* compression strategy */ 
char *p = (char* ) mode; 
gz_stream *s; 

char fmode[80]; /* copy of mode, without the compression level 

*/ 

char *m = fmode; 



if (!path || !mode) return ZJNfULL; 

s = (gz_stream *) ALLOC (sizeof (gz__stream) ) ; 
if ( !s) return Z_NULL; 

s->stream. zalloc == (alloc_func) 0; 
s->strearru zf ree = (f ree_func) 0; 
s->stream. opaque = (voidpf)O; 
s->stream.next_in = s->inbuf = Z__NULL; 
s->stream. next_out = s->outbuf = Z_NULL; 
s->stream.avail_in = s->stream.avail_out - 0; 
s->file - NULL; 
s->z__err = Z__OK; 
s->z_eof = 0; 

s->crc = crc32(0L / ZJNULL, 0); 
s->msg = NULL; 
s->transparent = 0; 

s->path = (char* ) ALLOC (strlen (path) +1) ; 
if (s->path == NULL) { 

return destroy(s), (gzFile) Z_NULL; 

} 

strcpy (s->path, path); /* do this early for debugging */ 

s->mode = ' \0 1 ; 
do { 

if (*p == ! r ? ) s->mode = 1 r'; 

if (*p == 'w ? || *p ===== 'a') s->mode = f w'; 

if (*p >= '0 1 && *p O '9') { 

level == *p - ' 0'; 
} else if (*p 'f ' ) { 

strategy = Z_FILTERED; 
} else if (*p == 'h 1 ) { 

strategy = Z_HUFFMAN_ONLY; 
} else { 

*m++ = *p; /* copy the mode */ 

} 

} while (*p++ && m !- fmode + sizeof (fmode) ) ; 

if (s->mode — 'NO 1 ) return destroy (s), (gzFile) Z_NULL; 
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if (s~>mode — 'w 1 ) { 
#ifdef NO_DEFLATE 

err = Z_S T REAM_E RROR ; 

#else 

err = def latelnit2 ( & (s->stream) , level, 

ZJDEFLATED, -MAX_WBITS, DE F_MEM_L EVEL , 

strategy) ; 

/* windowBits is passed < 0 to suppress zlib header */ 
s->stream.next_out = s->outbuf = (Byte* ) ALLOC (Z_BUFSIZE) ; 

#endif 

if (err != Z_OK || s->outbuf == Z_NULL) { 
return destroy(s), (gzFile) Z_NULL; 

} 

} else { 

s->stream.next_in = s->inbuf = (Byte* ) ALLOC (Z_BUFSIZE) ; 

err = inf latelnit2 ( & (s->stream) , -MAXJVBITS); 

/* windowBits is passed < 0 to tell that there is no zlib 

header. 

* Note that in this case inflate *requires* an extra "dum 

my" byte 

* after the compressed stream in order to complete decomp 
ression and 

* return Z_STREAM_END . Here the gzip CRC32 ensures that 4 
bytes are 

* present after the compressed stream. 
*/ 

if (err != Z_OK | | s->inbuf == Z_NULL) { 
return destroy (s), (gzFile) Z_NULL; 

} 

} 

s->stream.avail_out = Z_BUFSIZE; 
errno - 0; 

s->file = f d < 0 ? F_OPEN(path, fmode) : ( FILE* ) f dopen ( fd, fmo 

de) ; 

if (s->file == NULL) { 

return destroy (s), (gzFile) Z_NULL; 

} 

if (s->mode == f w') { 

/* Write a very simple .gz header: 
*/ 

fprintf (s->file, "%c%c%c%c%c%c%c%c%c%c", gz_magic[0] , gzjn 
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agic [1] , 

Z_DEFLATED, 0 /*flags*/, 0,0,0,0 /*time*/, 0 /*xflags 

*/, OS_CODE); 

s->startpos = 10L; 

/* We use 10L instead of ftell (s->f ile) to because ftell c 

auses an 

* f flush on some systems. This version of the library doe 

sn't use 

* startpos anyway in write mode, so this initialization i 

s not 

* necessary. 
*/ 

} else { 

check_header (s) ; /* skip the .gz header */ 
s->startpos = (ftell (s->f ile) - s->stream. avail_in) ; 

} 

return (gzFile) s; 

} 

Opens a gzip (.gz) file for reading or writing. 

*/ 

gzFile ZEXPORT gzopen (path, mode) 
const char *path; 
const char *mode; 

{ 

return gz_open (path, mode, -1); 

1 



/ 



Associate a gzFile with the file descriptor fd. fd is not dup 
'ed here 

to mimic the behavio(u)r of fdopen. 

*/ 

gzFile ZEXPORT gzdopen (fd, mode) 
int fd; 

const char *mode; 

{ 

char name [20] ; 



if (fd < 0) return (gzFile) Z_NULL; 

sprintf (name, "<fd:%d>", fd) ; /* for debugging */ 
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return gz_open (name, mode, fd) ; 

} 



* Update the compression level and strategy 
*/ 

int ZEXPORT gzsetparams (file, level, strategy) 
gzFile file; 
int level; 
int strategy; 

{ 

gz_stream *s = (gz_stream* ) f ile; 

if (s == NULL || s->mode != 'w') return Z_STREAM_ERROR; 

/* Make room to allow flushing */ 
if (s->stream.avail_out — 0) { 

s->stream.next__out = s->outbuf; 

if (f write (s->outbuf, 1, Z_BUFSIZE, s->file) != Z_BUFSIZE) 
s->z_err = Z_ERRNO; 

} 

s->stream.avail_out = Z_BUFSIZE; 

} 

return def lateParams (& (s->stream) , level, strategy); 



M 

C3 Read a byte from a gz_stream; update next__in and avail_in. Re 

£3 turn EOF 

for end of file. 

IN assertion: the stream s has been sucessfully opened for read 
ing. 
*/ 

local int get__byte(s) 
gz_stream *s; 

{ 

if (s->z_eof) return EOF; 
if (s->stream.avail_in == 0) { 
errno = 0; 

s->stream. avail__in = fread (s->inbuf , 1, Z_BUFSIZE, s->file 

); 



C3 

m { 
ry 

Ly 

H 
(3 

C3 } 
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if (s->stream.avail_in ===== 0) { 
s->z_eof = 1 ; 

if (ferror (s->f ile) ) s->z_err = Z_ERRNO; 
return EOF; 



s->stream. next in = s->inbuf; 



s~>stream. avail_in — ; 

return * ( s->stream. next in)++; 



/* 



Check the gzip header of a gz_stream opened for reading. Set 
the stream 

mode to transparent if the gzip magic header is not present; s 
et s->err 

to Z_DATA_ERROR if the magic header is present but the rest of 
the header 

is incorrect. 

IN assertion: the stream s has already been created sucessfull 



s->stream. avail_in is zero for the first time, but may be n 



local void check_header (s) 
gz_stream *s; 

{ 

int method; /* method byte */ 
int flags; /* flags byte */ 
ulnt len; 
int c; 

/* Check the gzip magic header */ 
for (len = 0; len < 2; len++) { 

c = get_byte (s) ; 

if (c != gzjnagic [len] ) { 

if (len !== 0) s->stream. avail in++, s->stream. next in- 



if (c != EOF) { 

s->stream.avail_in++, s->stream. next_in — ; 
s->transparent = 1; 

} 

s->z err = s->stream. avail in != 0 ? Z OK : Z STREAM E 



on-zero 



for concatenated .gz files. 



ND; 
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return; 

} 

} 

method = get_byte(s); 
flags = get_byte(s); 

if (method != Z_DEFLATED | | (flags & RESERVED) != 0) { 
s->z_err = Z_DATA_ERROR; 
return; 

} 

/* Discard time, xflags and OS code: */ 

for (len = 0; len < 6; len++) (void) get_byte (s) ; 

if ((flags & EXTRA_FIELD) != 0) { /* skip the extra field */ 
len = (ulnt ) get_byte (s) ; 
len += ( (ulnt)getjoyte(s) )«8; 

/* len is garbage if EOF but the loop below will quit anyw 

ay */ 

while (len-- != 0 && get_byte(s) != EOF) ; 

} 

if ((flags & ORIG_NAME) != 0) { /* skip the original file name 

*/ 

while ((c = get_byte(s)) != 0 && c != EOF) ; 

} 

if ((flags & COMMENT) != 0) { /* skip the .gz file comment * 

/ 

while ((c = get_byte(s)) != 0 && c != EOF) ; 

} 

if ((flags & HEAD_CRC) != 0) { /* skip the header crc */ 
for (len = 0; len < 2; len++) (void) get_byte (s) ; 

} 

s->z_err = s->z_eof ? Z_DATA_ERROR : Z_OK; 

} 

/* =======================================================:======= 

* Cleanup then free the given gz_stream. Return a zlib error code 
Try freeing in the reverse order of allocations. 

*/ 

local int destroy (s) 
gz_stream *s; 

{ 

int err = Z_OK; 

if (!s) return Z STREAM ERROR; 
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TRYFREE (s->msg) ; 

if (s->stream. state != NULL) { 
if (s->mode == 'w') { 
#ifdef NO_DEFLATE 

err = Z_STREAM_ERROR; 

#else 

err = def lateEnd ( & (s->strearn) ) ; 

#endif 

} else if (s->mode == ' r ' ) { 

err = inf lateEnd (& (s->stream) ) ; 

} 

} 

if (s->file != NULL && f close (s->file) ) { 
#ifdef ESPIPE 

if (errno != ESPIPE) /* fclose is broken for pipes in HP/U 

X */ 
#endif 

err = Z_ERRNO; 

} 

if (s->z_err < 0) err = s->z_err; 

TRYFREE (s->inbuf ) ; 
TRYFREE (s->outbuf) ; 
TRYFREE (s->path) ; 
TRYFREE ( s ) ; 
return err; 

} 

/* ================================================== = ============ 



Reads the given number of uncompressed bytes from the compres 
sed file. 

gzread returns the number of bytes actually read (0 for end of 
file) . 
*/ 

int ZEXPORT gzread (file, buf, len) 
gzFile file; 
voidp buf; 
unsigned len; 

{ 

gz_stream *s = (gz_stream* ) f ile; 

Bytef *start = (Bytef*)buf; /* starting point for crc computat 
ion */ 

Byte *next_out; /* == stream. next_out but not forced far (for 
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MSDOS) */ 

if (s == NULL || s->mode != 'r') return Z_STREAM_ERROR; 

if (s->z_err == Z_DATA_E RRO R | I s->z_err == Z_ERRNO) return -1 

if (s->z_err == Z_STREAM_END) return 0; /* EOF */ 

next_out = (Byte*)buf; 
s->stream. next__out = (Bytef*)buf; 
s->stream. avail_out - len; 

while (s->stream.avail_out !- 0) { 

if (s->transparent ) { 

/* Copy first the lookahead bytes: */ 
ulnt n = s->stream. avail_in; 

if (n > s->stream.avail_out ) n = s->stream. avail_out; 
if (n > 0) { 

zmemcpy (s->stream.next_out, s->stream. next_in, n) ; 
next_out += n; 

s->stream. next__out = next_out; 
s->stream. next_in += n; 
s->stream. avail_out -= n; 
s->stream. avail__in -= n; 

} 

if (s->stream. avail_out > 0) { 

s->stream. avail_out -= f read (next_out, 1, s->strea 

m.avail_out, 

s->file); 

} 

len -= s->stream.avail_out; 
s->stream, total_in += (uLong)len; 
s->stream. total_out += (uLong)len; 
if (len ===== 0) s->z_eof - 1; 
return (int)len; 

} 

if (s->stream.avail_in == 0 && !s->z_eof) { 
errno ~ 0; 

s->stream.avail_in = f read ( s->inbuf , 1, Z_BUFSIZE, s-> 

file) ; 

if (s->streaxn. avail_in === 0) { 
s->z_eof = 1; 
if (f error (s->file) ) { 
s->z err == Z ERRNO; 
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break; 

} 

} 

s->stream. next_in = s->inbuf; 

} 

s->z_err = inflate (& (s->stream) , Z_NO_FLUSH) ; 

if (s->z_err == Z_STREAM_END) { 

/* Check CRC and original size */ 

s->crc = crc32 (s->crc, start, (ulnt ) ( s->stream, next ou 



t - start) ) 



ng { ) may 
of 



start = s->stream. next__out ; 

if (getLong(s) != s->crc) { 

s->z_err = Z_DATA__ERROR ; 
} else { 

(void) getLong (s) ; 

/* The uncompressed length returned by above getlo 

* be different from s->stream. total_out ) in case 

* concatenated .gz files. Check for such files: 
*/ 

check_header (s) ; 

if (s->z_err == Z__OK) { 

uLong total_in = s->stream. total_in; 

uLong total_out = s->stream. total_out ; 

inflateReset (& (s->stream) ) ; 
s->stream. total_in = total_in; 
s->stream. total_out = total_out; 
s->crc = crc32(0L, Z NULL, 0); 



} 



} 



} 

if (s->z_err != Z_OK | | s->z_eof) break; 

} 

s->crc = crc32 ( s->crc, start, (ulnt) ( s->stream. next out - star 



return (int) (len - s->stream.avail_out ) ; 

} 
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Reads one byte from the compressed file, gzgetc returns this 

byte 

or -1 in case of end of file or error. 

*/ 

int ZEXPORT gzgetc (file) 
gzFile file; 

{ 

unsigned char c; 

return gzread(file, &c, 1) — 1 ? c : -1; 



/* 



Reads bytes from the compressed file until len-1 characters 

are 

read, or a newline character is read and transferred to buf, or 

an 

end-of-file condition is encountered. The string is then termi 
nated 

with a null character. 

gzgets returns buf, or Z_NULL in case of error. 

The current implementation is not optimized at all. 

*/ 

char * ZEXPORT gzgets (file, buf, len) 
gzFile file; 
char *buf; 
int len; 

{ 

char *b = buf; 

if (buf == ZJSfULL | | len <= 0) return Z__NULL; 

while ( — len > 0 && gzread(file, buf, 1) == 1 && *buf++ != ? \n 

M ; 

*buf = 'XO 1 ; 

return b buf && len > 0 ? Z__NULL : b; 

} 



#ifndef NO_DEFLATE 



Writes the given number of uncompressed bytes into the compre 
ssed file. 
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# • 

gzwrite returns the number of bytes actually written (0 in case 
of error) . 
*/ 

int ZEXPORT gzwrite (file, buf, len) 
gzFile file; 
const voidp buf; 
unsigned len; 



{ 



gz_stream *s = (gz__stream* ) f ile; 

if (s — NULL M s->mode != f w f ) return Z_STREAM_ERROR; 

s->stream. next__in = (Bytef*)buf; 
s->stream.avail_in = len; 

while (s->stream.avail_in != 0) { 

if (s->stream. avail_out ==0) { 

s->stream. next_out = s->outbuf; 

if (fwrite(s->outbuf, 1, Z BUFSIZE, s->file) != Z BUFS 



IZE) { 



s->z_err = Z__ERRNO; 
break; 

} 

s->stream.avail_out = Z_BUFSIZE; 

} 

s->z_err = deflate (& (s->stream) , Z_NO_FLUSH); 
if (s->z_err != ZjDK) break; 

} 

s->crc = crc32 (s->crc, (const Bytef *)buf, len); 
return (int) (len - s->stream. avail in); 



Converts, formats, and writes the args to the compressed file 
under 

control of the format string, as in fprintf. gzprintf returns t 
he number of 

uncompressed bytes actually written (0 in case of error) • 

*/ 

#ifdef STDC 
ffinclude <stdarg.h> 
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int ZEXPORTVA gzprintf (gzFile file, const char *format, /* args * 

/ ...) 

{ 

char buf [Z_PRINTF_BUFSIZE] ; 
va_list va; 
int len; 



va_start(va, format) ; 
#ifdef HAS_vsnprintf 

(void) vsnprintf (buf , sizeof(buf), format, va); 
#else 

(void) vsprintf (buf , format, va); 
#endif 

va_end(va) ; 

len = strlen(buf); /* some *sprintf don't return the nb of byt 
es written */ 

if (len <= 0) return 0; 

return gzwrite ( f ile, buf, (unsigned) len) ; 

} 

#else /* not ANSI C */ 

int ZEXPORTVA gzprintf (file, format, al, a2, a3, a4, a5, a6, a7, 
a8, a9, alO, 

all, al2, al3, al4, al5, al6, al7, al8, al9 

, a20) 

gzFile file; 

const char * format; 

int al, a2, a3, a4, a5, a6, a7, a8, a9, alO, 

all, al2, al3, al4, al5, al6, al7, al8, al9, a20; 

{ 

char buf [Z_PRINTF_BUFSIZE] ; 
int len; 

#ifdef HAS_snprintf 

snprintf (buf , sizeof(buf), format, al, a2, a3, a4, a5, a6, a7, 

a8, 

a9, alO, all, al2, al3, al4, al5, al6, al7, al8, al9, 

a20) ; 
#else 

sprintffbuf, format, al, a2, a3, a4, a5, a6, a7, a8, 

a9, alO, all, al2, al3, al4, al5, al6, al7, al8, al9, 

a20) ; 
#endif 

len = strlen(buf); /* old sprintf doesn't return the nb of byt 
es written */ 
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n 

•sar 



if (len <= 0) return 0; 

return gzwrite (f ile, buf, len); 

} 

#endif 

/* „ = „„„„ 

Writes c, converted to an unsigned char, into the compressed 

file. 

gzputc returns the value that was written, or -1 in case of err 

or. 

*/ 

int ZEXPORT gzputc (file, c) 
gzFile file; 
int c; 

{ 

unsigned char cc = (unsigned char) c; /* required for big endi 
an systems */ 



t3 return gzwrite (file, &cc, 1) == 1 ? (int)cc : -1; 

m } 

^ 3 

y / * ===================================================== 

*j ============ 

C3 Writes the given null-terminated string to the compressed fi 

e le, excluding 

C3 the terminating null character. 

"4 gzputs returns the number of characters written, or -1 in ca 

W se of error. 

M */ 

J3 int ZEXPORT gzputs (file, s) 
*3 gzFile file; 

const char *s; 



{ 
} 



return gzwrite (file, (char*)s, (unsigned) strlen (s) ) ; 



Flushes all pending output into the compressed file. The para 

meter 

flush is as in the def late ( ) function. 

*/ 
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local int do_flush (file, flush) 
gzFile file; 
int flush; 



{ 



up 



ND) 



ulnt len; 
int done = 0; 

gz_stream *s = (gz_stream* ) f ile; 

if (s == NULL M s->mode != ? w') return Z__STREAM_ERROR; 

s->stream,avail_in = 0; /* should be zero already anyway */ 

for (;;) { 

len = Z_BUFSIZE - s->stream. avail_out; 

if (len != 0) { 

if ( (ulnt ) fwrite (s->outbuf , 1, len, s->file) != len) { 
s->z_err = Z_ERRNO; 
return Z_ERRNO; 

} 

s->stream.next_out = s->outbuf; 
s->stream.avail_out = Z_BUFSIZE; 

} 

if (done) break; 

s->z_err = deflate (& (s->stream) , flush); 

/* Ignore the second of two consecutive flushes: */ 

if (len == 0 && s->z_err == Z_BUF_ERROR) s->z_err = Z__OK; 

/* deflate has finished flushing only when it hasn't used 

* all the available space in the output buffer: 
*/ 

done = (s->stream. avail out != 0 I I s->z err == Z STREAM E 



if (s->z_err != Z_OK && s->z_err ! = Z__STREAM_END) break; 

} 

return s->z_err Z_STREAM_END ? Z_OK : s->z_err; 

} 

int ZEXPORT gzflush (file, flush) 
gzFile file; 
int flush; 

{ 

gz stream *s = (gz_stream* ) f ile; 
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int err = do_flush (file, flush); 

if (err) return err; 
fflush(s->file) ; 

return s->z_err == Z_STREAM_END ? Z_OK : s->z_err; 

} 

#endif /* NO_DEFLATE */ 



Sets the starting position for the next gzreaci or gzwrite on 
the given 

compressed file. The offset represents a number of bytes in the 
gzseek returns the resulting offset location as measured in 
bytes from 

the beginning of the uncompressed stream, or -1 in case of erro 

r • 

SEEK_END is not implemented, returns error. 

In this version of the library, gzseek can be extremely slow 

C3 • 
\3 */ 

|n z_off_t ZEXPORT gzseek (file, offset, whence) 
ft) gzFile file; 

%2 z_off_t offset; 

id int whence; 

*J { 

u gz_stream *s = (gz_stream* ) f ile; 

5 

(3 if (s == NULL | | whence == SEEK_END | | 

-4 s->z_err == Z_ERRNO I I s->z_err == Z_DATA_ERROR) { 

IJ return -1L; 

M } 

£3 

?3 if (s->mode == *w' ) { 

#ifdef NO_DEFLATE 

return -1L; 

#else 

if (whence == SEEK_SET) { 

offset -= s->stream. total_in; 

} 

if (offset < 0) return -1L; 

/* At this point, offset is the number of zero bytes to wr 

ite. */ 

if (s->inbuf == Z_NULL) { 

s->inbuf = (Byte* ) ALLOC (Z_BUFS I ZE ) ; /* for seeking */ 
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zmemzero (s->inbuf , Z_BUFSIZE) ; 

} 

while (offset > 0) { 

ulnt size = Z_BUFSIZE; 

if (offset < Z_BUFSIZE) size = (ulnt ) of f set; 

size = gzwrite (f ile, s->inbuf, size); 
if (size — 0) return -1L; 

offset -= size; 

} 

return ( z_of f_t ) s->stream. total_in'; 

ttendif 
} 

/* Rest of function is for reading only */ 

/* compute absolute position */ 
if (whence — SEEK_CUR) { 

offset += s->stream. total__out; 

£3 > 

^3 if (offset < 0) return -1L; 

in 

fy if (s->transparent ) { 

^3 /* map to fseek */ 

id s->stream.avail_in == 0; 

s->stream. next_in = s->inbuf; 
£3 if (fseek(s->file / offset, SEEK_SET) < 0) return -1L; 

E 

£3 s->stream. total_in = s->stream. total_out = (uLong) of f set; 

return offset; 

IJ } 

I s ™ 

C3 /* For a negative seek, rewind and use positive seek */ 

C3 if ( (uLong) of f set >= s->stream, total_out ) { 

offset -= s->stream. total_out; 
} else if (gzrewind (f ile) < 0) { 

return -1L; 

} 

/* offset is now the number of bytes to skip. */ 

if (offset ! = 0 && s->outbuf ===== Z_NULL) { 
s->outbuf = (Byte*)ALLOC(Z_BUFSIZE) ; 

} 

while (offset > 0) { 

int size = Z_BUFSIZE; 

if (offset < Z BUFSIZE) size = (int) offset; 
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size = gzread(file, s->outbuf, (ulnt)size); 
if (size <= 0) return -1L; 
offset -= size; 

} 

return ( z_of f_t ) s->st ream. total_out ; 

} 



Rewinds input file. 

*/ 

int ZEXPORT gzrewind (file) 
gzFile file; 

{ 

gz_stream *s = (gz_stream* ) f ile; 

if (s == NULL M s->mode != 'r 1 ) return -1; 

s->z_err = Z_OK; 
^ s->z_eof = 0; 

fS s->stream.avail__in - 0; 

s->stream. next_in = s->inbuf; 
^5 s->crc = crc32(0L, Z_NULL, 0); 

vj if (s->startpos ===== 0) { /* not a compressed file */ 

□ rewind (s->f ile) ; 

g return 0; 

C3 1 

s 

y (void) inflateReset (&s->stream) ; 

U return fseek{s->file f s~>startpos, SEEK_SET); 

Ij } 
Q 



Returns the starting position for the next gzread or gzwrite 
on the 

given compressed file. This position represents a number of byt 
es in the 

uncompressed data stream. 

*/ 

z_off_t ZEXPORT gztell (file) 
gzFile file; 

{ 

return gzseek(file, 0L, SEEK_CUR) ; 
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} 

/* 



Returns 1 when EOF has previously been detected reading the g 

iven 

input stream, otherwise zero. 

*/ 

int ZEXPORT gzeof (file) 
gzFile file; 

{ 

gz_stream *s = (gz__stream* ) f ile; 

return (s == NULL || s->mode != ' r') ? 0 : s->z__eof; 

} 



Outputs a long in LSB order to the given file 

*/ 

local void putLong (file, x) 
FILE *file; 
uLong x; 

{ 

int n; 

for (n = 0; n < 4; n++) { 

fputc( (int) (x & Oxff), file); 
x »= 8; 

} 

} 



Reads a long in LSB order from the given gz_stream. Sets z_err 
in case 

of error. 

V 

local uLong getLong (s) 
gz_stream *s; 

{ 

uLong x - (uLong)get_byte(s) ; 
int c; 

x += ( (uLong)getJbyte (s) )«8; 
x += ( (uLong) getjoyte (s) ) «16; 
c = get_byte (s) ; 
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if (c == EOF) s->z_err = Z_DATA_ERROR; 
x += ( (uLong)c)«24; 
return x; 

} 



/ 



★ 



Flushes all pending output if necessary, closes the compresse 
d file 

and deallocates all the (de) compression state. 

*/ 

int ZEXPORT gzclose (file) 
gzFile file; 

{ 

int err; 

gz_stream *s = (gz_stream* ) f ile; 

if (s == NULL) return Z_STREAM_ERROR; 

if (s->mode — 'w') { 
#ifdef NO_DEFLATE 

return Z_STREAM_ERROR; 

#else 

err = do_flush (file, Z__FINISH) ; 

if (err != Z_OK) return destroy ( (gz_stream* ) file) ; 

putLong (s->file, s->crc); 

putLong (s->file, s->stream. total_in) ; 

#endif 
} 

return destroy ( (gz__stream* ) file) ; 

} 

Returns the error message for the last error which occured on 

the 

given compressed file, errnum is set to zlib error number. If a 

n 

error occured in the file system and not in the compression lib 
rary, 

errnum is set to Z_ERRNO and the application may consult errno 
to get the exact error code. 

V 

const char* ZEXPORT gzerror (file, errnum) 
gzFile file; 
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int *errnum; 

{ 

char *m; 

gz_stream *s = (gz_stream* ) f ile; 

if (s == NULL) { 

*errnum = Z_STREAM_ERROR; 

return (const char* ) ERR_MSG (Z_STREAM_ERROR) ; 

} 

*errnum = s->z__err; 

if (*errnum — Z__OK) return (const char*)""; 

m = (char*) (*errnum == Z_ERRNO ? zstrerror (errno) : s->stream 
.msg) ; 

if (m == NULL II *m == 1 \0 1 ) m = (char* ) ERR_MSG (s->z_err ) ; 
TRYFREE ( s->msg ) ; 

s->msg = (char* ) ALLOC (strlen (s->path) + strlen (m) + 3); 

strcpy (s->msg, s->path) ; 

strcat (s->msg, ": "); 

strcat (s->msg, m) ; 

return (const char* ) s->msg; 
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/« infblock.c interpret and^^Hcess block types to last block 
* Copyright (C) 1995-1998 MarW?dler . 
» For conditions of distribution and use, see copyright notice in zlib.h 
«/ 

#include "zutil.h" 
^include "infblock.h" 
#include "inf trees .h" 
#include "infcodes.h" 
^include "infutil .h M 

struct inf late_codes_state {int dummy;}; /* for buggy compilers */ 

/* simplify the use of the inf late_hxift type with some defines »/ 
#define exop word .what .Exop 
#define bits word .what .Bits 

/* Table for deflate from PKZIP's appnote.txt. 

local const ulnt border [] * { /« Order of the bit length code lengths «/ 
16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15} 

/« 

Notes beyond the 1.93a appnote.txt: 

1. Distance pointers never point before the beginning of the output 
stream. 

2. Distance pointers can point back across blocks, up to 32k away. 

3. There is an implied maximum of 7 bits for the bit length table and 
15 bits for the actual data. 

C3 4. If only one code exists, then it is encoded using one bit. (Zero 
would be more efficient, but perhaps a little confusing.) If two 
codes exist, they are coded using one bit each (0 and 1), 
There is no way of sending zero distance codes — a dummy must be 
fU sent if there are none. (History: a pre 2.0 version of PKZIP would 
%j store blocks with no distance codes, but this was discovered to be 
too harsh a criterion.) Valid only for 1.93a. 2.04c does allow 
zero distance codes, which is sent as one code of zero bits in 
*'4 length. 

12 6 - There are up to 286 literal/length codes. Code 256 represents the 
end-of -block . Note however that the static length tree defines 
288 codes just to fill out the Huffman codes. Codes 286 and 287 
tJ cannot be used though, since there is no length base or extra bits 
-J defined for them. Similarily, there are up to 30 distance codes. 

However, static trees define 32 codes (all 5 bits) to fill out the 
Huffman codes, but the last two had better not show up in the data. 
7. Unzip can check dynamic Huffman blocks for complete code sets. 

The exception is that a single code would not be complete (see #4). 
*i 8. The five bits following the block type is really the number of 
literal codes sent minus 257. 
9. Length codes 8,16,16 are interpreted as 13 length codes of 8 bits 
(1+6+6). Therefore, to output three times the length, you output 
three codes (1+1+1), whereas to output four times the same length, 
you only need two codes (1+3). Hmm. 

10. In the tree reconstruction algorithm. Code « Code + Increment 
only if BitLength(i) is not zero. (Pretty obvious.) 

11. Correction: 4 Bits: # of Bit Length codes - 4 (4 - 19) 

12. Note: length code 284 can represent 227-258, but length code 285 
really is 258. The last length deserves its own, short code 
since it gets used a lot in very redundant files. The length 
258 is special since 258 - 3 (the min match length) is 255. 

13. The literal/length and distance code bit lengths are read as a 
single stream of lengths. It is possible (and advantageous) for 
a repeat code (16, 17, or 18) to go across the boundary between 
the two sets of lengths. 



tn 



C3 



void inf late_blocks_reset (s, z, c) 
inf late_blocks_statef *s; 
z_streamp z; 
uLongf »c; 
{ 

if (c I- ZJKULL) 
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m^^»= DTREE) 



} 



*c = s->check; 

if (s->mode BTREE || s->mo?!f DTREE) 

ZFREE(z, s->sub .trees. blens) ; 
if (s->mode " CODES) 

inf late_codes_free (s->sub. decode .codes, z) ; 
s->mode - TYPE; 
s->bitk « 0; 
s->bitb - 0; 

s->read « s->write « s->window; 
if (s->checkfn ZJ3ULL) 

z->adler « s->check = (*s->checkfn) (0L, (const Bytef »)ZJNULL, 0); 
Tracev( (stderr, "inflate: blocks reset\n")); 



inf late_blocks_statef *inf late_blocks_new(z„ c, w) 

z_streamp z; 

check_func c; 

ulnt w; 

{ 

inf late_blocks_statef *s; 

if ((s » (inflate__blocks_statef «)ZALL0C 

(z,l,si2eof (struct inf late_blocks_state) ) ) — Z_NULL) 
return s; 
if ((s->hufts « 

(inflatejiuft *)ZALL0C(z, si2eof (inf late.hu ft ) , MANY) ) « ZJNULL) 

{ 

ZFREE(z, s); 
0 return Z_NULL; 

;Z if ((s->window - (Bytef *)ZALL0C(z, 1, w)) « Z_NULL) 
{ 

fj ZFREE(z, s->hufts); 
^3 ZFREE (z, s); 
^ return Z„NULL; 

} 

*J s->end = s->window + w; 
fj s->checkfn * c; 
s->mode - TYPE; 

Tracevf (stderr, "inflate: blocks allocated\n" ) ) ; 
C3 inf late_blocks_reset (s„ 2, Z_NULL); 
HJ return s; 

J. 

£Jnt inf late_blocks(s„ z, r) 
-inf late_blocks_statef *s; 
^z_streamp z; 

int r; 

{ 

ulnt t; /» temporary storage •/ 

uLong b; /* bit buffer »/ 

ulnt k; /* bits in bit buffer */ 

Bytef «p; /* input data pointer */ 

ulnt n; /* bytes available there */ 

Bytef *q; /* output window write pointer »/ 

ulnt m; /* bytes to end of window or read pointer »/ 

/* copy input/output information to locals (UPDATE macro restores) */ 
LOAD 

/* process input based on current state */ 

while (1) switch (s->mode) 

{ 

case TYPE: 
NEEDBITS(3) 
t » (ulnt)b & 7; 
s->last ■ t & 1; 
switch (t >> 1) 
{ 

case 0: /• stored */ 

Tracev( (stderr, "inflate: stored block/fe\n"„ 
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s->last ? 
DUMPBITS(3) 
t » k & 7; 
DUMPBITS(t) 
s->mode =LENS; 
break; 
case 1 : 

Tracev( (stderr, "inflate : 

s->last ? " (last) 

{ 

ulnt bl, bd; 
inflate_huft *tl, *td; 



/* go to byte boundary */ 

/* get length of stored block */ 

/* fixed *s 

fixed codes block/SsNn", 

"")); 



C3 
v3 

in 

ry 

U 

E 

n 



U 



inflate_trees„fixed(&bl„ £cbd„ &tl„ &td„ z); 

s->sub .decode .codes - inf late_codes_new(bl „ bd, tl„ td„ z); 

if (s->sub .decode .codes Z_NULL) 

{ 

r « Z_MEM_ERROR; 
LEAVE 



} 



} 



/* dynamic */ 

dynamic codes block^s\n" 

")); 



/* illegal */ 



#i 



DUMPBITS(3) 

s->mode - CODES; 

break; 
case 2: 

Tracev( (stderr, "inflate: 
s->last ? " (last)" 

DUMPBITS(3) 

s->mode * TABLE; 

break ; 
case 3: 

DUMPBITS(3) 

s->mode « BAD; 

z->msg = (char*) "invalid block type"; 

r « Z„DATA_JERROR ; 

LEAVE 

} 

break; 
case LENS: 
NEEDBITS(32) 

if ((((~b) >> 16) & Oxffff) f- (b & Oxffff)) 
{ 

s->mode ■ BAD; 

z->msg - (char*) "invalid stored block lengths"; 

r » Z_DATA_ERR0R ; 

LEAVE 

} 

s->sub.left * (ulnt)b & Oxffff; 

b « k - 0; /* dump bits */ 

Tracev( (stderr, "inflate: stored length £u\n"„ s->sub . left) ) 

s->mode » s->sub.left ? STORED : (s->last ? DRY : TYPE); 
break; 
case STORED: 
if (n 0) 

LEAVE 
NEEDOUT 

t « s->sub.left; 
if (t > n) t » n; 
if (t > m) t - m; 
zmeracpy (q „ p , t ) ; 
p +■ t; n -= t; 
q +■ t; m -= t; 
if ( (s->sub.left -=» t) !» 0) 
break; 

Tracev( (stderr, "inflate: stored end, Xiu total out\n", 

z->total_out + (q >= s->read ? q - s->read : 
(s->end - s->read) + (q - s->window) ) ) ) ; 
s->mode « s->last ? DRY : TYPE; 
break; 
case TABLE: 
NEEDBITS ( 14) 

s->sub. trees. table - t = (ulnt)b & 0x3fff; 
fndef PKZIPJBWG WORKAROUND 
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fj^^> 5) & Oxlf) > 29) 



if ((t & Oxlf) > 29 | | 
{ 

s->mode * BAD; 

z->msg » (char*) u too many length or distance symbols"; 

r - Z_DATA_ERROR; 

LEAVE 

} 

#endif 

t « 258 + (t & Oxlf) + ((t >> 5) & Oxlf); 

if ((s->sub. trees. blens « (uIntf*)ZALLOC(z„ t, sizeof (ulnt) ) ) « ZJtJULL) 
{ 

r « Z_MEM„ERROR; 
LEAVE 

} 

DUMPBITS(14) 

s->sub .trees . index « 0; 

Tracev( (stderr, "inflate: table sizes ok\n")); 

s->mode » BTREE; 
case BTREE: 

while (s->sub .trees . index < 4 + (s->sub .trees. table >> 10)) 
{ 

NEEDBITS (3) 

s->sub .trees. blens [border [s->sub .trees . index++] ] = (ulnt)b & 7; 
DUMPBITS(3) 

} 

while (s->sub. trees. index < 19) 

s->sub .trees .blens [border [s~>sub .trees . index++] ] « 0; 
s->sub.trees.bb » 7; 

t « inf late_trees_bits(s->sub. trees. blens, &s->sub .trees .bb, 
3 &s->sub. trees. tb, s->hufts, z); 

if (t !- ZJDK) 
{ 

ZFREE(z, s->sub. trees. blens ) ; 
f[J r - t; 

if (r « ZJD ATA_E RRO R ) 

s->mode = BAD; 
LEAVE 

J } 

s->sub. trees. index - 0; 

Tracev( (stderr, "inflate: bits tree ok\n")); 

s->mode « DTREE; 
1=1 case DTREE: 

\! while (t * s->sub. trees. table, 

1^.? s->sub. trees, index < 258 + (t & Oxlf) + ((t >> 5) & Oxlf)) 

M inflate.hu ft »h; 

O ulnt i, j, c; 

t « s->sub. trees. bb; 
NEEDBITS (t) 

h « s-> sub. trees. tb + ((ulnt)b & inf late_mask [t] ) ; 

t - h->bits; 

c a h->base; 

if (c < 16) 

{ 

DUMPBITS(t) 

s->sub .trees .blens [s->sub .trees . index++] - c; 

} 

else /« c -= 16. .18 */ 

{ 

i « c — 18 ? 7 : c - 14; 
j - c — IB ? 11 : 3; 
NEEDBITS (t + i) 
DUMPBITS(t) 

j +« (ulnt)b & inf late_mask[i] ; 
DUMPBITS(i) 

i - s->sub. trees . index; 
t - s->sub. trees .table; 

if (i + j > 258 + (t & Oxlf) + ((t >> 5) & Oxlf) || 
(c — 16 && i < 1)) 

{ 

ZFREE(z, s->sub. trees. blens) ; 
s->mode » BAD; 



■a -f 

in. 

ru 
u 

["3 
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l^^id bit length repeat"; 



z->msg - (cbar*)"il 
r = Z_DATA_ERROR; 
LEAVE 

} 

c « c «■ 16 ? s->sub. trees. blens[i - 1] : 0; 
do { 

s->sub. trees. blens[i++] ■ c; 
} while (--j); 
s->sub. trees. index • i; 

} 

} 

s->sub. trees. tb « ZJNULL; 
{ 

ulnt bl, bd; 
inflate_huft *tl„ *td; 
inf late_codes_statef *c; 

bl * 9; /» must be <- 9 for lookahead assumptions »/ 

bd = 6; /* must be <= 9 for lookahead assumptions */ 

t « s->sub .trees .table; 

t - inf late_trees_dynamic(257 + (t & Oxlf), 1 + ( (t >> 5) & Oxlf), 

s->sub. trees. blens, &bl, &bd, &tl, &td„ 
s->hufts, z); 

ZFREE (z, s->sub. trees. blens ) ; 

if (t 1- ZJDK) 

{ 

if (t — (ulnt) Z_DATAJERROR ) 

s->mode =» BAD; 
r - t; 
C3 LEAVE 

U } 

f& Tracev( (stderr* "inflate: trees ok\n") ) ; 

I'.] if ((c - inflate_codes__new(bl, bd, tl„ td, z)) « ZJsRJLL) 

iJ { 

U r - ZJ4EMJERR0R; 

i\j LEAVE 

y > 

^ s->sub .decode .codes - c; 

Q } 

B s->mode « CODES; 

case CODES: 

H UPDATE 

*%J if ((r - inflate_codes(s„ z r r) ) I - Z_STREAM_END ) 
§ s 1 return inf late_f lush (s, z, r) ; 

? ~ inf late_codes„free(s->sub. decode. codes, z); 
£3 LOAD 

£3 Tracev( (stderr, "inflate: codes end, Xlu total out\n", 

z->total„out + (q >= s->read ? g - s->read : 
(s->end - s~>read) + (q - s->window) ) ) ) ; 
if (!s->last) 
{ 

s->mode = TYPE; 
break ; 

} 

s->mode « DRY; 
case DRY; 
FLUSH 

if (s->read !» s->write) 
LEAVE 

s->mode = DONE; 
case DONE: 

r » Z.STREAMJEND; 

LEAVE 
case BAD: 

r « Z_DATA_ERR0R ; 

LEAVE 
default: 

r - ZJ3TREAM_ERR0R; 

LEAVE 
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int inf late_blocks_free (s, z) 
inflate_blocks_statef *s; 
z_streamp z; 
{ 

inf late_blocks_reset (s # z„ Z_NULL); 
ZFREEfz, s->window); 
2FREE (z, s->hufts); 
ZFREE (z, s); 

Tracev( (stderr, "inflate: blocks freed\n")); 
return Z_OR; 

} 



void inf late_set_dictionary (s„ d, n) 

inf late_blocks_statef *s; 

const Bytef »d; 

ulnt n; 

{ 

zmemcpy (s->window, d„ n); 

s->read » s->write - s->window + n; 

} 



/* Returns true if inflate is currently at the end of a block generated 
* by ZJ5YNCLFLUSH or Z_FULL_FLUSH . 
« IN assertion: s !- ZJJULL 
»/ 

a int inf late_blocks_ sync_point (s) 
kSnf late_blocks_statef *s; 

return s->mode " LENS; 



H J 

C3 

£3 
"""4 
id 
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se^^Vblock.c 

ir^^dler 



/* infblock.h — header to use 

* Copyright (C) 1995-1998 Mari? 

* For conditions of distribution and use, see copyright notice in zlib.h 
«/ 

/« WARNING: this file should »not» be used by applications. It is 
part of the implementation of the compression library and is 
subject to change. Applications should only use zlib.h. 

*/ 

struct inf late_blocks__state; 

typedef struct inf late__blocks_state FAR inf late_blocks_statef ; 

extern inf late_blocks_statef * inf late_blocks_new 0F(( 
z_streamp z, 

check_func c, /* check function •/ 

ulnt w)); /» window size «/ 

extern int inf late_bl°cks 0F(( 
inf late_blocks_statef »„ 
z_streamp , 

int)); /» initial return code */ 

extern void inf late_blocks_reset 0F(( 
inf late_blocks_statef *, 
z_streamp , 

uLongf »)); /* check value on output »/ 

.extern int inf late_blocks_free 0F(( 
1^ inf late_blocks_statef *, 
^3 z_streamp)); 

fn 

£$xtern void inf late_set„dictionary 0F(( 

* **f inf late_blocks_statef *s, 

Q const Bytef *d, /« dictionary */ 

S;i ulnt n)); /» dictionary length */ 

^xtern int inf late_blocks_sync_point 0F(( 
£3 inf late„blocks_statef *s)); 
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break ; 

} ~ 

if (e & 32) /» end of block */ 

{ 

Tracew( (stderr, "inflate: end of block\n")); 

c->mode - WASH; 

break; 

} 

c->mode = BADCODE; /* invalid code */ 

z->msg - (char*) "invalid literal /length code"; 
r - Z_DATA_ERROR; 
LEAVE 

case LENEXT: /» i: getting length extra (have base) */ 

j " c->sub. copy. get; 
NEEDBITS (j ) 

c->len +« (ulnt)b & inf latejmask [ j ] ; 
DUMPBITS(j) 

c->sub. code. need = c->dbits; 
c->sub. code. tree = c->dtree; 

Tracew( (stderr, "inflate: length /£u\n"„ c->len)); 

c->mode * DIST; 
case DIST: /* i: get distance neKt */ 

j » c->sub .code .need; 
NEEDBITS (j ) 

t = c->sub. code. tree + ((ulnt)b & inf late_^task[j ] ) ; 

DUMPBITS(t->bits) 

e » (ulnt) (t->exop) ; 

if (e & 16) /* distance */ 

{ 

£3 c->sub. copy. get » e & 15; 
"1 c->sub .copy .dist * t->base; 
\z c->mode « DISTEXT; 
|H break; 

fy > 

if ((a & 64) =- 0) /« next table •/ 

V-r* c->sub .code .need = e; 

c->sub. code. tree » t + t->base; 
~ =j break; 

s c->mode « BADCODE; /* invalid code */ 

fj z->msg » (char*) "invalid distance code"; 
l~i r - ZJDATA.ERROR; 
. " LEAVE 

iU case DISTEXT: /* i: getting distance extra */ 

j » c->sub. copy .get; 
n NEEDBITS (j ) 

c->sub.copy.dist +- (ulnt)b & inf late_jnask [ j ] ; 
U DUMPBITS(j) 

Tracew( (stderr, "inflate: distance £u\n", c->sub .copy .dist) ) 

c->mode » COPY; 

case COPY: /* o: copying bytes in window, waiting for space */ 

tfifndef TURBOC /* Turbo C bug for following expression */ 

f « (ulnt)(q - s->window) < c->sub .copy .dist ? 

s->end - (c->sub. copy -dist - (q - s->window)) : 
q - c->sub .copy .dist ; 

#else 

f « q - c->sub. copy. dist; 

if ((ulnt)(q - s->window) < c->sub .copy .dist ) 

f » s->end - (c->sub .copy .dist - (ulnt) (q - s->window) ) ; 

#endif 

while (c->len) 
{ 

NEEDOUT 
0UTBYTE(*f++) 
if (f « s->end) 
f - s->window; 
c->len--; 

} 

c->mode » START; 
break; 

case LIT: /* o: got literal, waiting for output space */ 

NEEDOUT 
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OUTBYTE(c->sub.lit) 
c->mode - START; 
break; 

case WASH: /* o: got eob, possibly more output */ 

if (k > 7) /« return unused byte, if any «/ 

{ 

Assert (k < 16, "inf late_codes grabbed too many bytes") 

k 8; 

n++; 

p — ; /* can always return one »/ 

} 

FLUSH 

if (s->read ! « s->write) 

LEAVE 
c->mode - END; 
case END: 

r » ZJSTREAM.END; 
LEAVE 

case BADCODE: /* x: got error */ 

r - Z_DATA_ERROR; 

LEAVE 
default: 

r « Z_STREAM_ERROR; 

LEAVE 

} 

#ifdef NEEDJUMMY^RETURN 

return Z_STREAMJERROR ; /« Some dumb compilers complain without this •/ 
#endif 

rh 
. =s 

fypid inflate_codes_free(c, z) 
aiif late_codes_statef *c; 
"iLstreamp z; 

\9 

hj ZFREE(z, c); 

l~. Tracev( (stderr, "inflate: codes free\n")); 

at 



ia 

jii 

£3 
£3 



